Re: spaltenangabe in buchstaben
03.05.2002 10:05:46
ajk
Hallo,
probier doch mal:Sub spalten()
Dim spalte
Dim spaltenwahl
spalte = Application.InputBox("Spalte", "Benutzer: " & Application.UserName, "A", , , , 2)
If spalte = False Then
Exit Sub
End If
If Asc(spalte) <= 90 And Asc(spalte) >= 65 Then
spaltenwahl = Asc(spalte) - 64
Columns(spaltenwahl).Select
ElseIf Asc(spalte) <= 122 And Asc(spalte) >= 97 Then
spaltenwahl = Asc(spalte) - 96
Columns(spaltenwahl).Select
Else
Beep
MsgBox "Bitte nur A-Z nutzen!", vbCritical, "Benutzer: " & Application.UserName
Call spalten
End If
MsgBox spalte & ":" & spaltenwahl
End Sub
Gruß
AJK