Gruppe
Allgemein
Problem
Aus den Daten in Spalte A soll der Ort in Spalte B separiert werden.
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