Fehler in eigener Funktion
SteffenS
ich habe folgende Funktion:
Function columnasletter(aletter As Long) As String
'Spaltennummer in Buchstaben umwandeln
If aletter > 26 Then 'bis Z
columnasletter = Chr(aletter \ 26 + 64) & Chr(aletter Mod 26 + 64)
Else '> Z
columnasletter = Chr(aletter + 64)
End If
End Function
Bei diesen Spalten ergibt das Ergebnis: BZ bzw CZ
Sub test()
MsgBox (columnasletter(52))
MsgBox (columnasletter(78))
End Sub
Danke Euch im Voraus.
VG
Steffen