Erste Stelle einer Zeichenfolge prüfen

• Erste Stelle einer Zeichenfolge prüfen von Pascal Rehfeldt vom 01.12.2003 10:38:01
  • AW: Erste Stelle einer Zeichenfolge prüfen - von KViertel am 01.12.2003 11:27:49

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.




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

Excel-Beispiele zum Thema " Erste Stelle einer Zeichenfolge prüfen"
Bei falscher Eingabe alten Wert wiederherstellen	Automatisch Sicherungsdatei erstellen
Adressdaten der aktiven Zelle über VBA feststellen	Fundstellen in UserForm listen
Eigene Menüleiste mit Untermenüs erstellen	Arbeitsmappen-History erstellen
Spielpaarungen zusammenstellen	Per VBA einen Verweis zu einer *.DLL erstellen
Spracheinstellung der Excel-Anwendung feststellen	Startansicht wiederherstellen