PLZ Prüfung
Ffm
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