Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text zerlegen

Text zerlegen
10.07.2007 11:50:57
steffen
Moin
ich muß einen Text zerlegen.
Es sind Straßen die mal mit Leerzeichen und Hausnummer sind
Z.B.
Am Eschborn 6
Am Eschborn6 a
Am Eschborn6
zum Schluß soll die Straße und HsNr und Zusatzt in jeweils in einer Zelle stehen.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text zerlegen
10.07.2007 12:06:25
c0bRa
Hio...
die 2 Funktionen hier sollten dir helfen:
Code aus Modul Modul1:
Option Explicit
Public Function hausnummer(s As String)
    'Filtert alles ab einer Zahl als Hausnummer
    Dim objRegEx As Object
    Set objRegEx = CreateObject("vbscript.regexp")
    With objRegEx
        .Global = True
        .IgnoreCase = False
        .MultiLine = False
        .Pattern = "[^0-9]*?\s?(\d+.?)"
    End With
    hausnummer = objRegEx.Replace(s, "$1")
End Function
Public Function strasse(s As String)
    'Filtert alles vor einer Zahl als Straße
    Dim objRegEx As Object
    Set objRegEx = CreateObject("vbscript.regexp")
    With objRegEx
        .Global = True
        .IgnoreCase = False
        .MultiLine = False
        .Pattern = "([^0-9]*?)\s?\d+.?"
    End With
    strasse = objRegEx.Replace(s, "$1")
End Function
Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige