VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellen mit Postleitzahlen separieren

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

    


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