Opdeling af tekst i kolonne

Brug evt. Data -> Tekst til kolonner

Marker kolonnen der skal deles -> Data -> Tekst til kolonner -> Prik i "Afgrænset -> Næste -> Flueben i "Mellemrum" -> Udfør

Hvis oplysningerne står i C1:

=VENSTRE(C1;5)
=MIDT(C1;7;LÆNGDE(C1)-10)
=HØJRE(C1;3)

Jeg højre klikker på Ark1 og vælger programkode.

Jeg vil gerne have en kode jeg kan indsætte her og så kører en F5

Okay, der må jeg melde pas.  :-)

PS: Husk selv at sende som "Kommentar" og ikke som "Svar"

Denne opsplitter i A1, med mellemrum som adskillelsestegn


Sub opsplit()

Range("C1").Resize(, 3) = Split(Range("C1"), " ")

End Sub

I C1 selvfølgelig

mrjh,

Kan du sørge for at den gør det i hele C kolonnen?

Hov, bemærke at Bynavn kan være mere end 1 ord

USA | Alabama | 35763 Owens Cross Roads 256 |

Skal være

USA | Alabama | 35763 | Owens Cross Roads | 256 |

Endnu et bud:
Dim antalRæk, ræk, pC, aC, town, celle
Sub OpdelKolonneC()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRæk
        celle = Cells(ræk, 3)
        pC = Left(Cells(ræk, 3), 5)
        aC = Right(Cells(ræk, 3), 3)
        town = Mid(celle, 7, Len(celle) - 10)
        Cells(ræk, 4) = pC
        Cells(ræk, 5) = town
        Cells(ræk, 6) = aC
    Next ræk
End Sub

Sub opsplit()
sidste = Range("C65536").End(xlUp).Row
For J = 1 To sidste
    For I = 1 To Len(Cells(J, 3))
        If Mid(Cells(J, 3), I, 1) = " " Then
            antal = antal + 1
        End If
    Next I
    Cells(J, 3).Resize(, antal + 1) = Split(Cells(J, 3), " ")
    antal = 0
Next J
End Sub

jeg kørte mrjh's liste og den fuckede mine data. Men jeg kan ikke fortryde handlingen. Nogen der ved hvordan?

Supertekts funktion virker. Smid et svar :-)

Jeg har lavet listen forfra.

Jeg mangler bare et svar fra supertekst :-)

Det får du her.....

Tak for hjælpen :-)

Selv tak!

Undskyld mit fravær. Har bare alt for meget arbejde for tiden.
serverfriend => Jeg er ked af at du måtte genetablere dine data, men havde ikke set dit indlæg med at bynavn kunne være mere end 1 ord, og skyndte mig bare at indsætte koden her og arbejdede derefter videre (den klassiske med at få opdateret for at se nye indlæg, inden man selv poster en kommentar). Håber ikke det har givet dig alt for meget ekstraarbejde. Det var ihvertfald godt at du klarede den og tak til supertekst for opfølgning og korrekt kode.
Nu er det nemt at være bagklog, men gem altid dit arbejde inden du kører en makro. Den kan nemlig ikke fortrydes. Sorry, sorry, sorry.