Wäre super wenn einer eine Idee hätte. Grüße
Euer Andy
Sub AsciiWert()
MsgBox Asc("B")
End Sub
Gruß Uwe
Public Sub test()
Dim strBuchstaben As String, intNummer As Integer
strBuchstaben = "AA"
If Len(strBuchstaben) = 1 Then
intNummer = Asc(strBuchstaben) - 64
Else
intNummer = (Asc(Left(strBuchstaben, 1)) - 64) * 26
intNummer = intNummer + Asc(Right(strBuchstaben, 1)) - 64
End If
MsgBox CStr(intNummer)
End Sub
Function SpaltenNr(strSpalte As String) As Integer
SpaltenNr = Range(strSpalte & 1).Column
End Function