Erste Stelle einer Zeichenfolge prüfen
01.12.2003 10:38:01
Pascal Rehfeldt
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.