Gruppe
Allgemein
Bereich
Bereich
Thema
Zellen mit Postleitzahlen separieren
Problem
Aus einer Tabelle sollen die Zellen mit Postleitzahlen separiert werden.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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