VBA - makro: kopiering/retunering af tal og tekst fra samme celle

Der plejer er at en være eksport funktion i netbank, således man kan generer en fil der kan importeres direkte i excel.
Prøv lige at tjekke om du ikke også har den mulighed?

Problemet er: BS KØBENHAVNS KOMMUNE - OPKRÆVN som består af flere mellemrum

Prøv denne:

Sub test()
Dim Slut As Long, I As Long, Tekst As String, Y As Long, Skil As Long
Slut = Range("A65536").End(xlUp).Row

For I = 1 To Slut
    Tekst = Range("A" & I).Value
    Range("A" & I).Value = Left(Tekst, 10)
    Tekst = Right(Tekst, Len(Tekst) - 11)
   
    For Y = 1 To Len(Tekst)
        If Mid(Tekst, Y, 1) = "." And Mid(Tekst, Y + 3, 1) = "." Then
            Skil = Y - 4
            Exit For
        End If
    Next
    Range("B" & I).Value = Left(Tekst, Skil)
    Range("C" & I).Value = Mid(Tekst, Skil + 2, 10)
    Tekst = Trim(Right(Tekst, Len(Tekst) - Skil - 11))
   
    For Y = 1 To Len(Tekst)
        If Mid(Tekst, Y, 1) = "," Then
            Skil = Y + 2
            Exit For
        End If
    Next
    Range("D" & I).Value = Trim(Left(Tekst, Skil))
    Range("E" & I).Value = Trim(Right(Tekst, Skil))
   
Next
End Sub

Sorry, jeg fik byttet rundt på hvordan du vil have det til at stå:

Sub test()
Dim Slut As Long, I As Long, Tekst As String, Y As Long, Skil As Long
Slut = Range("IV1").End(xlToLeft).Column

For I = 1 To Slut
    Tekst = Cells(1, I).Value
    Cells(1, I).Value = Left(Tekst, 10)
    Tekst = Right(Tekst, Len(Tekst) - 11)
   
    For Y = 1 To Len(Tekst)
        If Mid(Tekst, Y, 1) = "." And Mid(Tekst, Y + 3, 1) = "." Then
            Skil = Y - 4
            Exit For
        End If
    Next
    Cells(2, I).Value = Left(Tekst, Skil)
    Cells(3, I).Value = Mid(Tekst, Skil + 2, 10)
    Tekst = Trim(Right(Tekst, Len(Tekst) - Skil - 11))
   
    For Y = 1 To Len(Tekst)
        If Mid(Tekst, Y, 1) = "," Then
            Skil = Y + 2
            Exit For
        End If
    Next
    Cells(4, I).Value = Trim(Left(Tekst, Skil))
    Cells(5, I).Value = Trim(Right(Tekst, Skil))
   
Next
End Sub

Hii Akyhne

TAAK for dine vba'er.
De virker begge optimalt.

Den første er mest efter det konkrete ønske.
Der er en 200'mand klar til dig :-)
Så hit med svar..

Ok.