Flytte tal til ny celle

Lav en tom kolonne ved siden af, hvis der ikke allerede er det. Marker dine postnumre. Vælg Data - Tekst til kolonner. Klik Næste og vælg mellemrum som afgrænser. Klik OK.

Marker kolonner med postnummer og by, skulle jeg har skrevet.

Ligner det rigtige, men hvis der fx står 2100 København S Så bliver der lavet 3 kolonner.

Nogle steder står der også DK foran eller for et andet land, så kan heller ikke bruge fast bredde.

VBA-kode - indsættes i ark1 (højreklik VisProgramkode)

Dim postnr, by, celle
Sub adskilPostnrBy()

    For r = 1 To 65000
        celle = Cells(r, 1)
        If celle = "" Then
            Columns.AutoFit
            MsgBox ("Adskillelse udført")
            Exit Sub
        End If
       
Rem Test om mellemrum i celle
        blank = InStr(celle, " ")
        If blank > 0 Then
Rem adskil postnr og bynavn
            postnr = Left(celle, blank - 1)
            by = Mid(celle, blank + 1)
Rem indsæt dem i kolonne 2 & 3
            Cells(r, 2) = postnr
            Cells(r, 3) = by
        End If
    Next r
End Sub

VBA/Marko er ikke lige min stækre side. Hvor skal jeg så henne for at køre den? Skal jeg tilpasse noget i koden?

Forudsætninger:
Kolonne 1 indeholder postnr by på ark1

- Ændre sikkerhedsniveauet (Funktioner / Makro / Sikkerhed /sæt laveste niveau / OK
- Gem / Luk / Åbn filen igen

- Kopier koden, som er sendt
- Højreklik på Ark1 - vælg Vis programkode
- Indsæt koden
- Sæt markøren i den første Sub - adskilPostnrBy
- tryk <F5>

Og den stopper ved en tom celle, derfor jeg ikke kunne få det til at virke.

Siger mange tak, læg et svar.

Selv tak - du får et svar

jkrons må også få lidt :)

Jeg behøver ingenting, du brugte jo ikke min løsning :-)

Jamen i orden så :-)