VBA - Buchstaben/Zahlen von Spalten !?

[Michael Klein]

Hi,

wie wandle ich nochmal Spalten in Zahlen um und umgekehrt?

Bspw. ist wahrscheinlich Spalte A gleichzeitig Spalte Nummer 1.
Wenn ich zu der 1 zwei dazu addiere erhalte ich eine 3. Umgewandelt in einen
Buchstaben wäre das dann Spalte C.

Wie mache ich das in VBA?
Ich hab's vor Monaten schon einmal gemacht, aber ich habe wieder vergessen,
welche Methoden dazu notwendig sind.

Gruß aus Potsdam

[unknown]

Hallo Michael,
mit Columns("AB").Column ermittelst du die Spaltenzahl, sofern ein
Tabellenblatt aktiv ist. Ergebnis: 28.

Mit der folgenden Funktion ermittelst du den entsprechenden
Spaltenbuchstaben:

Function Spaltenbuchstabe(intSpalte As Integer) As String
Spaltenbuchstabe = Right(Columns(intSpalte).Address, _
Len(Columns(intSpalte).Address) - _
InStrRev(Columns(intSpalte).Address, "$"))
End Function

Sub Testen()
MsgBox Spaltenbuchstabe(28)
End Sub

Anmerkung:
In dieser Funktion wird keine Fehlerbehandlung vorgenommen. Die
Variable "intSpalte" muss sich im Zahlenbereich von 1 bis 256
befinden. Die Methode InStrRev steht erst ab XL-Version 2000 zur
Verfügung.

MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung