####################
Sub Trennen() Dim lngZeile As Long Dim intZeichen As Integer lngZeile = 0 With ActiveCell Do While IsEmpty(Cells(.Row + lngZeile, .Column)) = False For intZeichen = 1 To Len(Cells(.Row + lngZeile, .Column)) If IsNumeric(Right(Cells(.Row + lngZeile, .Column), intZeichen)) = False _ Or Left(Right(Cells(.Row + lngZeile, .Column), intZeichen), 1) = "." Then Exit For End If Next intZeichen Cells(.Row + lngZeile, .Column + 1) = _ Left(Cells(.Row + lngZeile, .Column), Len(Cells(.Row + lngZeile, .Column)) - intZeichen + 1) If Left(Right(Cells(.Row + lngZeile, .Column), intZeichen - 1), 1) = " " Then Cells(.Row + lngZeile, .Column + 2) = _ Right(Cells(.Row + lngZeile, .Column), intZeichen - 2) Else Cells(.Row + lngZeile, .Column + 2) = _ Right(Cells(.Row + lngZeile, .Column), intZeichen - 1) End If lngZeile = lngZeile + 1 Loop End With End Sub
###################
und das ist das Ergebnins:
Weg1 Weg 1
Weg 1 Weg 1
Allee Str.3 Allee Str. 3
Allee Str. 3 Allee Str. 3
Dr- Paul- Straße 2 Dr- Paul- Straße 2
weg 2 weg 2
Straße 1-4 Straße 1 -4
Die probleme sind, wenn hinter der Hausnummer noch ein leerzeichen ist.Es wär super wenn mir jemann helfen könnte
PS an alle die mir schon ( vorallem mit diesem Script) geholfen haben.
Olli