Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen nach Format prüfen

Zellen nach Format prüfen
07.12.2018 14:04:19
AnKo
Hallo,
ich habe eine Excel Datei mit Daten aus einer OCR (Texterkennung).
Leider sind bei einigen Daten die Zeichen nicht richtig erkannt worden (aus einer "1" wurde ein "i" oder ein "|" usw.)
Beim Überfliegen der Daten kann man leider nicht gleich erkennen, ob die OCR ein "i" oder ein "|" erkannt hat.
Die betreffende Spalte soll das Grundformat E######### (ein "E" und dann eine 9stellige Zahl) haben.
Gibt es die Möglichkeit zu prüfen, ob die einzelne Zelle in diesem Format vorliegt bzw ob die Zelle 1 Buchstaben und 9 Zahlen enthält?
Beispiel:
OCR erkennt E32|456789
oder E3214567B9
Erwartet wurde E321456789
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen nach Format prüfen
07.12.2018 14:19:08
Daniel
Hi
dürfte für die meisten Fälle ausreichen:
=wenn(Und(Länge(A1)=10;IstZahl(--teil(A1;2;9));Links(A1;1)="E");"i.O.";"Fehler")
oder etwas genauer:
=Wenn(Und(Links(A1;1)="E";SUMMENPRODUKT(LÄNGE(A1)-LÄNGE(WECHSELN(A1;SPALTE(A1:J1)-1;"")))=9;Länge(A1)=10);"i.O.";"Fehler")
Gruß Daniel
Anzeige
E oder e
07.12.2018 14:38:38
WF
wenn schon genau dann
IDENTISCH(LINKS(A1;1);"E")
statt
LINKS(A1;1)="E"
WF
AW: Zellen nach Format prüfen
07.12.2018 14:40:48
AnKo
Super, danke für die schnelle Hilfe!
Funktioniert perfekt!
AW: Zellen nach Format prüfen
07.12.2018 14:41:19
Torsten
Hallo,
wenn gewuenscht hier noch ein VBA Loesung:
Sub finden()
Dim str1 As String, str2 As String
Dim Zelle As Range
For Each Zelle In Sheets("Dein Sheet").Range("A1:F15")
str1 = Left(Zelle, 1)
str2 = Right(Zelle, 9)
If (Not IsNumeric(str2) Or IsNumeric(str1)) And Zelle  "" Then
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub
Musst nur noch den Sheet Namen und die Range anpassen.
Die Zellen, wo etwas falsch ist, werden rot. Leere Zellen werden nicht beruecksichtigt.
Gruss Torsten
Anzeige
AW: Zellen nach Format prüfen
07.12.2018 14:43:40
Torsten
Als Zusatz, hier ist es auch Wurscht, ob es ein E oder ein e oder jeder andere Buchstabe ist.
Es wird immer geprueft, ob erstes Zeichen keine Zahl ist und ob die anderen 9 Zahlen sind.
AW: Zellen nach Format prüfen
07.12.2018 15:51:59
Daniel
Hi
Mit VBA geht die Prüfung aber deutlich einfacher:
If Zelle.Value Like "E#########" Then

weil im Like das "#" der Platzhalter für genau eine Ziffer ist.
wenn statt dem E ein beliebiger Buchstabe stehen kann auch:
If Zelle.Value Like "[A-Z]#########" Then
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zellen nach Format prüfen


Schritt-für-Schritt-Anleitung

Um zu prüfen, ob eine Zelle im gewünschten Format vorliegt (ein "E" gefolgt von 9 Ziffern), kannst Du die folgende Excel-Formel verwenden:

=WENN(UND(LÄNGE(A1)=10;ISTZAHL(--TEIL(A1;2;9));LINKS(A1;1)="E");"i.O.";"Fehler")

Diese Formel erfüllt die grundlegende Prüfung. Für eine genauere Prüfung kannst Du diese Formel verwenden:

=WENN(UND(LINKS(A1;1)="E";SUMMENPRODUKT(LÄNGE(A1)-LÄNGE(WECHSELN(A1;SPALTE(A1:J1)-1;"")))=9;LÄNGE(A1)=10);"i.O.";"Fehler")

Diese Formeln geben "i.O." zurück, wenn das Format korrekt ist, und "Fehler", wenn nicht.


Häufige Fehler und Lösungen

Ein häufiger Fehler kann sein, dass die ersten Zeichen nicht korrekt überprüft werden. Stelle sicher, dass Du die richtigen Funktionen verwendest. Zum Beispiel:

  • Bei der Verwendung von LINKS(A1;1)="E" könnte es sinnvoll sein, IDENTISCH(LINKS(A1;1);"E") zu verwenden, um Groß- und Kleinschreibung zu berücksichtigen.

Ein weiterer Fehler ist, dass leere Zellen nicht ordnungsgemäß behandelt werden. Achte darauf, leere Zellen in Deiner Formel auszuschließen.


Alternative Methoden

Wenn Du mit VBA vertraut bist, kannst Du die Prüfung von Zellen auch automatisieren. Hier ist ein einfaches Skript:

Sub finden()
    Dim Zelle As Range
    For Each Zelle In Sheets("Dein Sheet").Range("A1:F15")
        If Not IsNumeric(Right(Zelle, 9)) Or IsNumeric(Left(Zelle, 1)) Then
            Zelle.Interior.ColorIndex = 3 ' Rot färben
        End If
    Next Zelle
End Sub

Dieses Skript überprüft jede Zelle im angegebenen Bereich und färbt fehlerhafte Zellen rot.


Praktische Beispiele

Angenommen, Du hast die folgenden Werte in Spalte A:

  • E123456789
  • E12345678A
  • E12345678
  • 123456789E

Die Formeln und VBA-Skripte oben helfen Dir zu identifizieren, welche dieser Werte nicht dem erwarteten Format entsprechen.


Tipps für Profis

  • Nutze die Funktion WENNFEHLER, um mögliche Fehler in Deinen Formeln abzufangen und zu verarbeiten.
  • Bei der Verwendung von VBA kannst Du das Like-Statement verwenden, um eine einfachere Prüfung durchzuführen:
If Zelle.Value Like "E#########" Then

Das # ist ein Platzhalter für eine Ziffer und macht die Prüfung sehr effizient.


FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass alle Zellen in einer Spalte überprüft werden?
Verwende die oben genannten Formeln in der gesamten Spalte, indem Du die Formel nach unten ziehst oder anwendest.

2. Was mache ich, wenn ich nicht sicher bin, ob das Format stimmt?
Nutze die Excel-Formeln oder VBA-Skripte, um die Prüfung von Zellen automatisiert durchzuführen. So kannst Du schnell Fehler identifizieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige