Thema Datum  Von Nutzer Rating
Antwort
25.03.2013 14:00:48 Timo
Solved
Blau Postleitzahlen aus Adressfeld auslesen
 25.03.2013 14:38:01 timo
Solved

Ansicht des Beitrags:
Von:
timo		 Datum:
25.03.2013 14:38:01		 Views:
886		 Rating:
     
Antwort:
 Nein
Thema:
Postleitzahlen aus Adressfeld auslesen

Den Post hätt ich mir sparen können, habs soeben gelöst:

Option Explicit
'
Sub tt()
Dim Zei As Long, Satz, S
Dim varVal As Variant

For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Satz = Split(Cells(Zei, 1))
For S = 0 To UBound(Satz)
If IsNumeric(Satz(S)) And Len(Satz(S)) = 5 Then
Cells(Zei, 2) = Satz(S)

Exit For
End If
Next S
Next Zei
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.03.2013 14:00:48 Timo
Solved
Blau Postleitzahlen aus Adressfeld auslesen
 25.03.2013 14:38:01 timo
Solved