Dele en celle op i 2 celler

http://www.eksperten.dk/spm/573473

http://www.eksperten.dk/spm/474484

Unødvendigt med en makro til det, der er en indbygget funktion i Excel, der kan gøre det.

Start med at markere din D-kolonne
Data->Tekst til kolonner

Mange tak for svaret
MVH
Petert

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

For i = 1 To ??
    Trim (Cells(i, 4).value)
    If IsNumeric(Left(Cells(i, 4).value, 4)) Then
    ln = Len(Cells(i, 4).value)
        Cells(i, 5).value = Left(Cells(i, 2).value, 4)
        If ln > 4 Then
            Cells(i, 5).value = Mid(Cells(i, 4).value, 6, ln) ' (1)
        End If
    Else
        Cells(i, 5).value = Cells(i, 4).value
    End If
Next i
End Sub

Mange tak send et svar så jeg kan lukke
MVH
Petert