Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: PLZ Prüfung

PLZ Prüfung
Ffm
Hallo liebe Forenuser,
ich möchte eine Überprüfung ob eine PLZ mehr oder weniger als 5 Ziffern aufweist. Wenn die PLZ mehr oder weniger als 5 PLZ aufweist, soll sie mit "Keine gültige Postleitzahl!" ausgegeben werden. Anschließend sollen dann die ersten beiden Stellen ausgegeben werden. Die Wiedergabe der ersten beiden Zahlen funktioniert schon soweit.
Vielen Dank für die Hilfe.
Beste Grüße
Stefan

Function V_Gebiet(PLZ As String) As String
Application.Volatile
Select Case Left(PLZ, 2)
Case "01" To "39"
V_Gebiet = "A"
Case "40" To "70"
V_Gebiet = "B"
Case "71" To "99"
V_Gebiet = "C"
Case Else
V_Gebiet = "Keine Gültige Postleitzahl!"
End Select
End Function

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: PLZ Prüfung
28.04.2011 17:26:44
Philipp
Vielleicht nicht genau das was du meinst, aber es wäre doch eine Möglichkeit abzufragen ob die Zahl kleiner 100000 und größer 9999 ist oder?
AW: PLZ Prüfung
28.04.2011 17:35:03
Ffm
Nein, das geht leider nicht es gibt ja PLZ wie bspw. "01234". Es soll daher beispw. bei einer nur vierstelligen PLZ also, 7890 auf eine fehlerhafte PLZ hingewiesen werden.
Anzeige
AW: PLZ Prüfung
28.04.2011 17:27:20
Oberschlumpf
Hi Stefan
Schreib oberhalb der Select Case-Zeile diesen Code:

If Len(PLZ)  5 Then
V_Gebiet = "Keine Gültige Postleitzahl!"
Exit Function
End If

Hilfts?
Ciao
Thorsten
AW: PLZ Prüfung
28.04.2011 17:45:21
Ffm
Hallo Thorsten,
perfekt -das war es.
Vielen Dank!
Beste Grüße
Stefan
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

PLZ Prüfung in Excel


Schritt-für-Schritt-Anleitung

Um eine PLZ in Excel zu überprüfen und sicherzustellen, dass sie genau 5 Ziffern hat, kannst Du eine benutzerdefinierte Funktion in VBA erstellen. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Function V_Gebiet(PLZ As String) As String
       Application.Volatile
       If Len(PLZ) <> 5 Then
           V_Gebiet = "Keine gültige Postleitzahl!"
           Exit Function
       End If
       Select Case Left(PLZ, 2)
           Case "01" To "39"
               V_Gebiet = "A"
           Case "40" To "70"
               V_Gebiet = "B"
           Case "71" To "99"
               V_Gebiet = "C"
           Case Else
               V_Gebiet = "Keine gültige Postleitzahl!"
       End Select
    End Function
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Verwende die Funktion in einer Zelle, indem Du =V_Gebiet(A1) eingibst, wobei A1 die Zelle mit der PLZ ist.

Jetzt wird die Funktion prüfen, ob die PLZ 5 Ziffern hat und das entsprechende Ergebnis ausgeben.


Häufige Fehler und Lösungen

  • Fehler: Die Funktion gibt immer "Keine gültige Postleitzahl!" zurück, auch bei 5 Ziffern.

    • Lösung: Stelle sicher, dass die PLZ als Text eingegeben wird. Zahlenformate können führende Nullen wie in 01234 entfernen.
  • Fehler: Der Code wird nicht ausgeführt.

    • Lösung: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter und aktiviere die Makros.

Alternative Methoden

Wenn Du keine VBA-Funktion verwenden möchtest, kannst Du die PLZ auch mit einer Kombination von Excel-Formeln überprüfen:

  1. Verwende die Funktion =WENN(LÄNGE(A1)<>5; "Keine gültige Postleitzahl!"; "Gültig") in einer Zelle, um die Länge der PLZ zu prüfen.
  2. Um die ersten beiden Ziffern zu extrahieren, kannst Du =LINKS(A1;2) verwenden.

Praktische Beispiele

Hier sind einige Beispiele für die PLZ-Prüfung:

  • Gültige PLZ: PLZ 01234 (gibt "A" zurück)
  • Ungültige PLZ: PLZ 4005 (gibt "Keine gültige Postleitzahl!" zurück)
  • Vierstellige PLZ: PLZ 7890 (gibt ebenfalls "Keine gültige Postleitzahl!" zurück)

Du kannst auch die PLZ 27, 40 oder 71 testen, um zu sehen, wie die Funktion reagiert.


Tipps für Profis

  • Nutze Application.Volatile, um sicherzustellen, dass die Funktion bei jeder Änderung in Excel neu berechnet wird.
  • Du kannst die Funktion erweitern, um spezifische Fehlermeldungen für verschiedene PLZ-Bereiche zu liefern, z.B. für plz ffm oder 99 plz.
  • Teste die Funktion regelmäßig mit verschiedenen Postleitzahlen, um sicherzustellen, dass sie korrekt funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich die Funktion für eine andere PLZ-Länge anpassen?
Ändere die Zahl 5 im Code Len(PLZ) <> 5 zu der gewünschten Ziffernanzahl.

2. Was passiert bei Leerzeichen in der PLZ?
Die Funktion wird auch bei Leerzeichen "Keine gültige Postleitzahl!" zurückgeben. Stelle sicher, dass die Eingaben sauber sind.

3. Kann ich die Funktion auch für mehrstellige PLZ verwenden?
Ja, passe einfach die Bedingungen in der Select Case-Anweisung an, um mehrstellige PLZ zu unterstützen.

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