Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellen mit Postleitzahlen separieren

Gruppe

Bereich

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