AW: Hausnummer Strasse Trennen
11.08.2005 11:52:59
IngGi
Hallo Oli,
deine Strassen/Hausnummern stehen in Spalte A, ab A1. Dann sollte folgendes Makro funktionieren (Geh mit Alt+F11 in den VBA-Editor, füge mit Einfügen-Modul ein neues Modul ein und kopiere das Makro in das große Fenster auf der rechten Seite):
Sub trennen()
Dim rng As Range
Dim i As Integer
Dim z As Integer
For Each rng In Range("A1", Range("A65536").End(xlUp))
For i = Len(rng) To 1 Step -1
If IsNumeric(Mid(rng, i, 1)) Or z Then
z = 1
If Not IsNumeric(Mid(rng, i, 1)) Then
Exit For
End If
End If
Next i
rng.Offset(0, 1) = Left(rng, i)
rng.Offset(0, 2) = Right(rng, Len(rng) - i)
z = 0
Next rng
End Sub
Das Makro startest du in Excel mit Extras-Makro-Makros-trennen-Ausführen
Gruß Ingolf