application imputbox Abbruch
23.12.2014 08:51:56
Ravil
Ziel meines Makros soll sein die Spalte abzufragen, in der sich das Land befindet und diese dann markiert wird. Da die Anwender im Nachhinein sich nicht so viel merken sollen, habe ich mir gedacht, dass sie nur den Buchstaben der Spalte angeben sollen. Nun wenn es nur darum ginge, wäre es ja zu leicht. Nur die Abbruch-Fläche macht mir Sorgen.
While i = 0
s = Application.InputBox(prompt:="Bitte Spaltenbuchstabe für das Land eingeben", Type:=2)
If s Like "[a-z A-Z]" = False Then
MsgBox "Das ist kein Buchstabe"
Else
i = 1
End If
Wend
a = Range(s & "1").Address
On Error GoTo ENDE vbYes Then Exit Sub
Danke schonmal
Ravil