If Mid(Activecell.value,3,1)="T" then msgbox "Drittes Zeichen ist ein T"
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
VIELEN DANK!!! :-)
Und das auch noch so superschnell.
Hab es alleine trotz stundenlangem Suchen
einfach nicht gefunden...
Um das 3. Zeichen eines Strings mit VBA zu prüfen, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du auf "Einfügen" > "Modul" klickst.
Gib den folgenden VBA-Code ein:
Sub CheckThirdCharacter()
If Mid(ActiveCell.Value, 3, 1) = "T" Then
MsgBox "Drittes Zeichen ist ein T"
Else
MsgBox "Drittes Zeichen ist nicht ein T"
End If
End SubSchließe den VBA-Editor.
Wähle eine Zelle mit einem String aus und führe das Makro aus, indem Du ALT + F8 drückst und CheckThirdCharacter auswählst.
Mit diesem einfachen VBA-Code kannst Du das 3. Zeichen in einem String überprüfen.
Fehler: "Typen unverträglich"
Fehler: "Objekt erforderlich"
Falls Du keine VBA verwenden möchtest, kannst Du auch die Funktion MID direkt in einer Excel-Zelle nutzen:
=MID(A1, 3, 1)Diese Formel gibt das 3. Zeichen aus der Zelle A1 zurück. Du kannst dann mit einer WENN-Funktion weiterarbeiten, um das Zeichen zu prüfen:
=WENN(MID(A1, 3, 1)="T"; "Drittes Zeichen ist ein T"; "Drittes Zeichen ist nicht ein T")Hier sind einige praktische Beispiele, wie Du den VBA-Code oder die Excel-Formel nutzen kannst:
Beispiel mit VBA:
Beispiel mit Excel-Formel:
MID und VBA zu bekommen.1. Kann ich auch andere Zeichen als das 3. Zeichen überprüfen?
Ja, Du kannst die Mid-Funktion anpassen, um jedes beliebige Zeichen in einem String zu überprüfen, indem Du den zweiten Parameter änderst.
2. Funktioniert dieser VBA-Code in allen Excel-Versionen? Ja, der Code ist kompatibel mit den meisten Excel-Versionen, die VBA unterstützen. Stelle sicher, dass Du die Makros aktiviert hast.