Sie haben in #Excel eine #Spaltennummer, wollen aber den (oder die) #Buchstaben dazu haben? Also z.B. erfahren, dass die Spalte 4 den Buchstaben D trägt, die Spalte 100 die Buchstaben CV?
In VBA lösen Sie das zum Beispiel so:
Function Col_Str(ColNo As Long) As String
Dim myArr
myArr = Split(Cells(1, ColNo).Address(True, False), "$")
Col_Str= myArr(0)
End Function
Weil Cells(Zeile, Spalte).Address(True, False) die Adresse einer Zelle mit absoluter Zeilennummer (True), aber ohne absoluten Spaltenbuchstaben (False) ermittelt, liefert Cells(1, ColNo).Address im Fall von ColNo=100 den Text CV$1. Dieser wird beim Dollarzeichen gesplittet und dem Array myArr zugewiesen. Damit kommt der erste Teil – nämlich CV – in myArr(0) – und genau das gibt die Funktion nun aus.
Ich mach’s jetzt noch ein bisschen kürzer und spar mir die Variable myArr – das ist die Function, die ich selbst tatsächlich verwende, die vorige Version war nur wegen der Erklärbarkeit ein bisschen aufgeblasener:
Function Col_Str(ColNo As Long) As String
Col_Str= Split(Cells(1, ColNo).Address(True, False), "$")(0)
End Function