19.09.2018, 09:10
(Dieser Beitrag wurde zuletzt bearbeitet: 19.09.2018, 09:11 von Transputer.)
Hallo,
ich habe hunderte von Straßennamen in einer Tabelle stehen. Das Problem ist, die Hausnummer steht mit in der jeweiligen Zelle.
Nun möchte ich per Makro alle Hausnummern löschen. Das Klappt soweit auch hiermit.
Sub Alpha_in_Spalte_loeschen()
Dim vntAlpha, intIndex As Integer
vntAlpha = Split("1,2,3,4,5,6,7,8,9,0", ",") 'Bei Buchstaben abändern
For intIndex = 0 To UBound(vntAlpha)
Columns("A").Replace what:=vntAlpha(intIndex), replacement:="", lookat:=xlPart
Next
End Sub
Kann man den Code jetzt soweit abändern, das ich in Spalte A z.B. nur alle Hausnummern lösche, inklusive z.B bei 10C das C
in Spalte B alle Straßennamen lösche?
Beispiel: Dorfstraße 10C reinkopiert in Zelle A1 und B1
Ergebnis soll sein:
Zelle A1 - Dorfstraße
Zelle B1 - 10C
Danke
Transputer
ich habe hunderte von Straßennamen in einer Tabelle stehen. Das Problem ist, die Hausnummer steht mit in der jeweiligen Zelle.
Nun möchte ich per Makro alle Hausnummern löschen. Das Klappt soweit auch hiermit.
Sub Alpha_in_Spalte_loeschen()
Dim vntAlpha, intIndex As Integer
vntAlpha = Split("1,2,3,4,5,6,7,8,9,0", ",") 'Bei Buchstaben abändern
For intIndex = 0 To UBound(vntAlpha)
Columns("A").Replace what:=vntAlpha(intIndex), replacement:="", lookat:=xlPart
Next
End Sub
Kann man den Code jetzt soweit abändern, das ich in Spalte A z.B. nur alle Hausnummern lösche, inklusive z.B bei 10C das C
in Spalte B alle Straßennamen lösche?
Beispiel: Dorfstraße 10C reinkopiert in Zelle A1 und B1
Ergebnis soll sein:
Zelle A1 - Dorfstraße
Zelle B1 - 10C
Danke
Transputer