Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus Adressangabe den Ort in eine andere Spalte separieren

Gruppe

Filtern

Problem

Aus den Daten in Spalte A soll der Ort in Spalte B separiert werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub PLZTrennen()
   Dim iRow As Integer, iCounter As Integer
   Dim sOrt As String, sTmp As String
   For iRow = 1 To WorksheetFunction.CountA(Columns(1))
      sOrt = Cells(iRow, 1)
      sTmp = sOrt
      iCounter = 0
      Do Until sTmp Like "#####"
         iCounter = iCounter + 1
         sTmp = Mid(sOrt, iCounter, 5)
      Loop
      Cells(iRow, 2) = Right(sOrt, Len(sOrt) - iCounter - 5)
   Next iRow
End Sub