Makro für Trennung Str., Hnr und Zusatz

onkelbobby · 2014-05-26T12:53:28+00:00

Hi, In Spalte C einer Tabelle steht eine Adresse in der Form "An der Mauer 11 A". Ich hätte jetzt gerne eine Sortierung zunächst nach Straße, dann nach Hausnr., dann nach Zusatz. Also so: An der Mauer 9 An der Mauer 11 A An der Mauer 11 B An der Mauer 25 usw. Das wird wohl nur funktionieren, wenn in Hilfsspalten Hausnr. und Zusatz von der Straße getrennt werden. Ich habe dazu auch schon ein Makro gefunden, das mir Straße in eine Spalte, sowie Hnr. + Zusatz in eine andere Spalte schreibt. Seltsamerweise werden jedoch bei einigen Hnr. Zusätzen mit "A" die Daten wie eine Uhrzeit angezeigt, also "11:00 AM" statt 11 A. Keine Ahnung warum das so ist. Wie kriege ich die Sortierung (am besten per Makro) hin? Danke!

Hi
das Problem ist, dass du für eine Sortierung vor den einstelligen Hausnummern führende Nullen brauchst, damit die Text-Sortierung gewünscht sortiert.
die folgende Funktion fügt dir bei der Hausnummer die führenden Nullen ein, so dass du den gesamttext dann sortieren kannt.
Auch der Fall wenn der Zusatz direkt dan der Nummer steht (80A) wird erkannt dun korrigiert.

Function HausNrMitNull(StrasseUndHausNR As String, Optional Stellen As Long = 2) As String
Dim txt() As String
Dim i As Long
Dim Hnr As Long
txt = Split(StrasseUndHausNR, " ")
For i = 0 To UBound(txt)
If IsNumeric(txt(i)) Then
txt(i) = Format(CLng(txt(i)), String(Stellen, "0"))
Else
If IsNumeric(Left(txt(i), 1)) Then
Hnr = Val(txt(i))
txt(i) = Format(Hnr, String(Stellen, "0")) & Replace(txt(i), CStr(Hnr), " ")
End If
End If
Next
HausNrMitNull = Join(txt, " ")
End Function

der Code kommt in ein allgemeines Modul.
Dann kannst du in der Tabelle mit der Formel =HausNrMitNull(A1) den Text in einer Hilfsspalte entsprechend wandeln und nach dieser sortieren, ohne dass der Text in mehrere Spalten aufgebrochen werden muss.
gruß Daniel

Danke für die prompte Antwort. Diesen Link hatte ich auch schon gefunden. Dabei wird jedoch im obigen Beispiel in einer Spalte "An der Mauer 11" und in der nächsten "A" angezeigt, da noch ein Leerzeichen zwischen Hausnr. und Zusatz ist.
Als Makro hätte ich das gerne, weil immer wieder neue Daten aus einer anderen Datei per Makro geholt und aufbereitet werden. In diesem Zusammenhang möchte ich nicht noch manuell eingreifen müssen.
Ich habe diesen Code gefunden, jedoch mit dem Problem der "Uhrzeitanzeige" (11:00 AM, statt 11 A).

Sub TrenneStrasseNummer()
Dim Zellwert$, Zelle As Range, Zeile%
Sheets("SAP-Liste").Select
For Each Zelle In ActiveSheet.Range("C5:C500")
Zeile = Zeile + 1
Zellwert = ActiveSheet.Range("C" & Zeile + 1).Value
ActiveSheet.Range("K" & Zeile + 1).Value = StrName(Zellwert)
ActiveSheet.Range("L" & Zeile + 1).Value = HsNr(Zellwert)
Next
End Sub

Function StrName(Strasse As String) As String
Dim pos As Integer
Dim Laenge  As Integer
pos = PosHsNrInStrasse(Strasse)
Laenge = Len(Strasse)
If pos > 0 Then
StrName = Trim(Left(Strasse, pos - 1))
Else
StrName = Strasse
End If
End Function

Function HsNr(Strasse As String) As String
Dim pos As Integer
Dim Laenge  As Integer
pos = PosHsNrInStrasse(Strasse)
Laenge = Len(Strasse)
If pos > 0 Then
HsNr = Right(Strasse, Laenge - pos + 1)
Else
HsNr = ""
End If
End Function

Function PosHsNrInStrasse(Strasse As String) As Integer
Dim Zaehler As Integer
Dim Laenge  As Integer
Dim x As String
Laenge = Len(Strasse)
PosHsNrInStrasse = 0
For Zaehler = Laenge To 3 Step -1
x = Mid(Strasse, Zaehler, 1)
If IsNumeric(x) Then
PosHsNrInStrasse = InStr(Strasse, x)
End If
Next
End Function

Makro für Trennung Str., Hnr und Zusatz

Forumthread: Makro für Trennung Str., Hnr und Zusatz

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Makro für Trennung Str., Hnr und Zusatz

Forumthread: Makro für Trennung Str., Hnr und Zusatz

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread