---

Hallo zusammen,

ich möchte in VBA die Spalte als String auswerten.
mit der Anweisung

    Spalte_Aktuell = ActiveCell.Column

bekomme ich als Rückgabewert eine Zahl.

Für 1 steht Spalte A für 2 Spalte B usw.

Gibt es eine Anweisung, wo ich direkt die aktuelle Spalte
als Buchstabe bekomme um mit diesem weiter zu arbeiten.

Danke und    Lothi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

versuchs mal mit folgenden Skript:

Sub Spaltenbuchstabe()
adr = ActiveCell.Address()
Buchstabe = Mid(adr, 2, InStr(2, adr, "$") - 2)
MsgBox Buchstabe
End Sub

(Hab ich über Google gefunden  )

Gruß

Stefela

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

in der Hilfe steht folgendes:

Ausdruck.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)

Ausdruck  Erforderlich. Ein Ausdruck, der ein Hyperlink-Objekt (Syntax 1) oder ein Range-Objekt (Syntax 2) zurückgibt.

RowAbsolute  Variant optional. Ist das Argument True, wird der Bezugsteil mit der Zeilenangabe als absoluter Bezug zurückgegeben. Die Voreinstellung ist True.

ColumnAbsolute  Variant optional. Ist das Argument True, wird der Bezugsteil mit der Spaltenangabe als absoluter Bezug zurückgegeben. Die Voreinstellung ist True.

ReferenceStyle  Variant optional. Kann eine der folgenden XlReferenceStyle-Konstanten sein: xlA1 oder xlR1C1. Verwenden Sie xlA1, um einen Bezug in der A1-Schreibweise zurückzugeben. Verwenden Sie xlR1C1, um einen Bezug in der Z1S1-Schreibweise zurückzugeben. Die Voreinstellung ist xlA1

External  Variant optional. Ist das Argument True, wird ein externer Bezug zurückgegeben. Ist das Argument False, wird ein lokaler Bezug zurückgegeben. Die Voreinstellung ist False.

RelativeTo  Variant optional. Sind RowAbsolute und ColumnAbsolute beide False und wird für ReferenceStyle der Wert xlR1C1 angegeben, müssen Sie einen Startpunkt für den relativen Bezug angeben. Dieses Argument ist ein Range-Objekt und definiert den Startpunkt.

Probiers doch mal damit

------------------
Mit freundlichen Grüßen

Wolfgang Gruber
www.syscad.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke ihr Beiden hat funktioniert

   

------------------
Gruß

Lothi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP