Buchstaben Problem

[Koda]

Hab da ein kleines Problem:

Buchstaben = "A" or "a" or "B" or "a" or "b" or "C" or "c" or "D" or "d" or "E" or "e" or "F" or _
"f" or "G" or "g" or "H" or "h" or "I" or "i" or "J" or "j" or "K" or "k" or "L" or _
"l" or "M" or "m" or "N" or "n" or "O" or "o" or "P" or "Q" or "q" or "R" or "r" or _
"S" or "s" or "T" or "t" or "U" or "u" or "V" or "v" or "W" or "w" or "X" or "x" or _
"Y" or "y" or "Z" or "Ü" or "ü" or "Ä" or "ä" or "Ö" or "ö" or "ß" or "@" or "€" or _
"µ" or "!" or "§" or "$" or "%" or "&" or "/" or "(" or ")" or "=" or "?" OR _
"^" or "²" or "³" or "{" or "[" or "]" or "}" or "\" or "´" or "`" or "*" or "+" or _
"~" or "'" or "#" or "<" or ">" or "|" or "-" or "°" or "_" or ":" or "." or "," or ";"

If Zahl = Buchstaben then exit sub


Das funktioniert leider nicht.
Kann mir bitte jemand helfen...

mfg

Koda

 

[DrSoong]

Machs doch ganz einfach mittels Select Case:

Zahl = Asc(DeinBuchstabe)
 Select Case Zahl
  Case 32 To 127, 196, 228, 214, 246, 220, 252, 223, 178, 179, 167, 181, 180, 176
   'Ein erlaubtes Zeichen
  Case Else
   'Ein unerlaubtes Zeichen, hier könnte deine Exit Sub rein
   Exit Sub
  End Select

Du müsstest noch überprüfen, ob alle deine erlaubten Buchstaben mit ihren ASCII-Zahlen drin sind, gegebenenfalls halt noch die restlichen raussuchen und in die erste Case-Anweisung dazuschreiben.


Der Doc!

 

[Koda]

Danke, funktioniert bestens!

Koda