Gruppe
Allgemein
Problem
Aus einer Tabelle sollen die Zellen mit Postleitzahlen separiert werden.
StandardModule: Modul1
Sub GetPLZ()
Dim rng As Range, rngSource As Range
Set rngSource = Range("A1").CurrentRegion
Workbooks.Add 1
For Each rng In rngSource
If rng.Value Like "##### [A-Z]*" Then
Cells(rng.Row, 6).Value = Left(rng.Value, 5)
Cells(rng.Row, 7).Value = Right(rng.Value, Len(rng.Value) - 6)
Else
Cells(rng.Row, rng.Column).Value = rng.Value
End If
Next rng
End Sub