wie muß ich die nachfolgende Formel erweitern, um abzufragen, ob die 1. Stelle alphabetisch ist?
=wenn(LINKS(K1;1)="?";LINKS(K1;3);"")
Vielen Dank für Eure Hilfe.
Gruß
Torsten
A | B | |
1 | 1text | |
2 | text | tex |
Formeln der Tabelle | ||||||
|
VBA-Code: |
Function IstBuchstabe(Zelle As Range, Pruefung As Integer, Ergebnis As Integer) If Zelle <> "" And IsNumeric(Left(Zelle, Pruefung)) Then IstBuchstabe = "" Else IstBuchstabe = Left(Zelle, Ergebnis) End If End Function |
allerdings bekommst du dann auch allen Zeichen, die keine Ziffer sind, die Meldung "Text", dh auch beim Leerzeichen und den nichtalphabetischen Sonderzeichen wie !"§$%&/ .
wenn du es genauer auf die alphabetischen Zeichen einschränken willst, musst du den Zeichencode prüfen, dh für die Buchstaben a..z und A..Z mit dieser Formel:
=WENN(ODER(UND(CODE(LINKS(A1;1))>=97;CODE(LINKS(A1;1))=65;CODE(LINKS(A1; 1))
Gruß, Daniel