gibt es einen Funktion, welche mir den Spalten-Buchstaben zurückliefert und nicht die Spaltennummer ohne dass ich noch über einen Refrenztabelle per sverweis nachschauen muß?
Danke für einen kurzen Tip.
Gruß
Bernd
Sub test()
MsgBox spaltenBuchstabe(ActiveSheet.Range("DA12"))
'Ergebnis: DA
End Sub
Function spaltenBuchstabe(rg As Range)
spaltenBuchstabe = Left(rg.Address(True, False), InStr(rg.Address(True, False), "$") - 1)
End Function
Siehe: http://xlarchiv.herber.de/96to100/t96621.htm