Thema: Aus Adressangabe den Ort in eine andere Spalte separieren

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

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