Erste Stelle einer Zeichenfolge prüfen

Bild

Betrifft: Erste Stelle einer Zeichenfolge prüfen
von: Pascal Rehfeldt
Geschrieben am: 01.12.2003 10:38:01

Hallo,

ich muss herausfinden ob eine Postleitzahl aus Deutschland kommt oder aus dem Ausland. Bei Deutschen PLZs steht entweder garkein Buchstabe vor den Zahlen oder ein D, also etwa so: D12345 oder 12345. Bei ausländischen PLZs steht immer ein Buchstabe davor, aber nie ein D.

Ich habe bisher diesen


Sub geschrieben:

Sub AuslaendischerKunde(ByVal Datei As String, _
                        ByVal Blatt As String, _
                        ByVal Zeile As Integer)
    Dim temp As Variant
    
    With Workbooks(Datei).Worksheets(Blatt)
    
        Debug.Print .Cells(Zeile, 4).Value
    
        temp = Left(.Cells(Zeile, 4).Value, 1)
    
        If IsNumeric(temp) = False And temp <> "D" Then
        
            Debug.Print "Kein Deutscher Kunde."
        
        End If
    
    End With
End Sub


Aber das Funktioniert so noch nicht.
Bild


Betrifft: AW: Erste Stelle einer Zeichenfolge prüfen
von: KViertel
Geschrieben am: 01.12.2003 11:27:49

Hallo Pascal,

ich würde zuerst die Länge der Postleitzahl prüfen "if len(Plz) >5 then"
ist dies der Fall, "if left(Plz),1) <> "D" then",
ist dies der Fall ist er Ausländer.

MfG. Klaus


Bild

Beiträge aus den Excel-Beispielen zum Thema " Erste Stelle einer Zeichenfolge prüfen"