Thema: Zellen mit Postleitzahlen separieren

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich