vb kode til at adskille postnr og by

Du kan forsøge med denne. Hvis den virker efter hensigten, så smid koden i en knap du opretter til lejligheden.

Sub Deling()
Dim str As String
Dim i, ln As Long

For i = 1 To 4
    Trim (Cells(i, 16).Value)
    If IsNumeric(Left(Cells(i, 16).Value, 4)) Then
    ln = Len(Cells(i, 16).Value)
        Cells(i, 17).Value = Left(Cells(i, 16).Value, 4)
        If ln > 4 Then
            Cells(i, 18).Value = Mid(Cells(i, 16).Value, 6, ln) ' (1)
        End If
    Else
        Cells(i, 18).Value = Cells(i, 16).Value
    End If
Next i
End Sub

Det er forudsat at postnummer kommer før bynavn og hvis begge er til stede, at der er 2 mellemrum (1) mellem værdierne.

Du skal rette så det passer til dit eget ark:

For i = 11 to 100

Jep den virker.... Takker... smid et svar...

Svar :)