wie kann ich in VB einen "Spaltenbuchstaben" in die "Spaltenzahl" wandeln?
z.B. A = 1; B = 2 usw.
Mit Select Case ist es mir klar, aber ich denke das müsste doch eleganter gehen
Vielen Dank im Voraus
Gruß Horst
Sub Horst()
Dim SpNr As Integer
SpNr = ActiveCell.Column
MsgBox SpNr
SpNr = Range("A1").Column
MsgBox SpNr
End Sub
Sub SpaltenNummer()
Dim s As String
s = InputBox(vbCr & vbCr & vbCr & "Spaltenbuchstabe(n):", "Spaltennummer")
If s = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", 0, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
s = UCase(s)
MsgBox "Spaltennummer Spalte " & s & ": " & Range(s & "1").Column
End Sub