Postleitzahl von Ort trennen

[Serpent Driver]

Hallo,

für einen kleinen Versuch habe ich die gegebenen Ausgangsdaten in Cells(1,1) kopiert.

Dann fügt dieser Code nach der PLZ ein "#", dass in einem zweiten Schritt gegen einen belibigen String gewechselt werden kann.

Code:

Sub test()

Tx = Cells(1, 1)
With CreateObject("vbscript.regexp")
  .Global = True
  .Pattern = "(\d{5,5}\s)"
 

  Set RR = .Execute(Tx)
For i = 0 To RR.Count - 1
  Debug.Print RR(i)
Next i
Cells(2, 2) = .Replace(Tx, "$1#")
End With

End Sub

mfg

WOW! ich bin jetzt kein Excel Experte, aber wie bekomme ich das ausgeführt?

[Fennek]

Hallo,

mein Ansatz wäre, alle Originaldaten in ein Textfile zu speichern, dann dieses Textfile in ein Array zu laden. Diese Array muss Tx im Code oben ersetzen.

Theoretisch, also ohne Beispieldatei kann ich es nicht konkreter beschreiben.

mfg

[Serpent Driver]

Mal "theoretisch" angenommen Du hättest das Excel File mit den Daten, würde das helfen?

[Fennek]

ohne zumindest einige Beispieldatesätze geht es nicht. Ob es klappt ist dann die nächste Frage.

[Serpent Driver]

Schau Dir mal das angehängte File an. Darin gibt es ein Vorher und ein Nachher so wie es Im Ergebnis aussehen sollte, wobei ich die Unterschiede farblich hervorgehoben habe.

[shift-del]

In dem Tag span itemprop="Darmstadt" sollte eigentlich itemprop="addressLocality" stehen

Dann so:

Code:

="<span itemprop=""postalCode"">"&TEXT(TEIL(A1;SUCHEN("postalcode";A1)+12;5);"00000")&"<span><span itemprop=""addressLocality"">"&TEIL(A1;SUCHEN("postalcode";A1)+18;SUCHEN("</span><br /><span itemprop=""streetAddress"">";A1)-SUCHEN("postalcode";A1)-18)&"</span>"

[Serpent Driver]

Schaut gut aus! Ich versuch das jetzt mal zusammen zu basteln und meld mich in Kürze wieder

[Fennek]

Hallo,

jetzt ist nach der PLZ ein Leerzeichen zuviel, aber wenn ich das Suchmuster ändere, werden auch Tel.-Nr. erkannt.

mfg

[Serpent Driver]

Ich hab die Aufgabe mit der letzten Lösung von @shift-del lösen können und verneige mich einmal mehr für die super Hilfe, die man mir hier kommt! Vielen Dank auch an Dich @Fennek!

[IchBinIch]

Zu langsam.
Aber egal. Eine Lösung hätte ich auch noch.

Tabelle2

	A
1	<div itemprop="address" itemscope itemtype="http://schema.org/PostalAddress"><span itemprop="postalCode">00000 xxxxxxxx</span><br /><span itemprop="streetAddress">Angerweg 1</span></div><br /><br />Tel.: <span itemprop="telephone">+49 (0)0000 00000</span><br /><span itemprop="streetAddress">Mobil: +49 (0)0000 00000</span><br />Fax:<span itemprop="faxNumber"> +49 (0)0000 0000</span>
2	<span itemprop= "postalCode"00000<span><span itemprop="addressLocalcity">xxxxxxxx</span>

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Sub PLZUndOrtExtrahierenUndAusgeben()
Dim objRegEx As Object
Dim strText As String
Dim temp As String
Dim strSuchText As String
Dim Regex As Object
Dim objMatch As Object

strSuchText = "postalCode"
Set objRegEx = CreateObject("Vbscript.Regexp")

With objRegEx
    .MultiLine = True
    .Global = True
    .Pattern = "postalCode.>00000 xxxxxxxx<"
    
    strText = Tabelle2.Range("A1").Value
    
    Set objMatch = .Execute(strText)
    
    If Not objMatch Is Nothing Then
        temp = "<span itemprop= ""postalCode"""
        temp = temp & CStr(Mid(objMatch(i), 13, 5))
        temp = temp & "<span><span itemprop=""addressLocalcity"">"
        temp = temp & CStr(Mid(objMatch(i), 19, 8))
        temp = temp & "</span>"
        Tabelle2.Range("A2").Value = temp
    End If

End With

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß
Ich