habe in meiner Tabelle eine Spalte mit Straßennamen UND Hausnummern.
Damit ich in der Spalte aber nur noch die Hausnummern habe, habe ich folgenden Code laufen lassen. (Mit Eurer Hilfe)
Soll alles löschen, was NICHT Ziffer ist:
With Sheets("Quelldaten")
Dim Ende As Long
Ende = .Cells.SpecialCells(xlCellTypeLastCell).Row
For Each zellchen In .Range("F2:F" & Ende)
Text1 = zellchen.Text
Text2 = ""
For i = 1 To Len(Text1)
If Not IsNumeric(Mid(Text1, i, 1)) Then Text2 = Text2 & Mid(Text1, i, 1)
Next i
zellchen.Value = Text2
Next
End With
Klappt auch soweit super.
Nun habe ich festgestellt, dass es auch Angaben gibt, bei denen zB als Hausnummer "StrasseNr. 82-84" oder "StrasseNr.20A"
Nach dem obigen Code hätte ich nun als Ergebnis
"8284" bzw. "20"
Dieses Ergebnis wäre natürlich falsch. Das war aber mein Fehler, habe nicht an solche Kombinationen gedacht. Wie gesagt, bei Angaben mit Hausnummer ohne Buchstabe oder Bindestrich funktioniert es"
UM die richtige Hausnummer aus den Angaben generieren zu können, müsste ich wahrscheinlich prüfen: ab welcher Stelle fängt meine Hausnummer an. Sprich : schneide alles ab, bis die erste Ziffer kommt. Lasse aber Bindestrich zwischen Ziffern oder Angaben nach der Hausnummer stehn.
Wie müsste denn diese Prüfung lauten ?
Danke
Gruß
Kai