Opdeling af kolonne med indhold, excel

Data -> Tekst til kolonner

Det løser ikke helt problemet :-( Den skal kunne genkende et mellerum, for ellers ser det ud som om, man bliver nød til at sette en vertikal linier, der hvor man vil have kolonnen splittet, og det er jo forskelligt fra navn til navn, alt afhængigt af hvor langt det er  !

Marker Kolonne D
Data --> Tekst til kolonner
Trin 1 Oprindelig dattype. Vælg: Afgrænset --> tryk: Næste
Trin 2 Afgrænsere. Vælg: Tabulator og Mellemrum --> tryk: Næste --> tryk: Udfør

Fornavn i D og efternavn flyttes E

Excel 2003

Kør denne kode (ret startRow, endRow og sheetName til, så det passer). Og tag lige en backup af dit ark først for en god ordens skyld :o)

Public Sub SplitNavn()
    Dim startRow As Integer
    Dim endRow As Integer
    Dim sheetName As String
    Dim r As Range
    Dim i As Integer
    Dim fullName As String
    Dim splitPos As Integer
   
    startRow = 1
    endRow = 3
    sheetName = "Sheet1"
   
    For i = startRow To endRow
        Set r = Worksheets(sheetName).Cells(i, 4)
        fullName = r.Value
        splitPos = InStrRev(fullName, " ")
        r.Value = Left(fullName, splitPos - 1)
        r.Offset(0, 1).Value = Mid(fullName, splitPos + 1)
    Next i
End Sub

Skulle måske tilføje: Koden splitter ved det sidste mellemrum, så folk der har mere end to navne får det sidste som efternavn og så flere fornavne, fx Hans Møller Hansen -> Hans Møller, Hansen.

P.s. Tekst til Kolonner vil splitte Hans Møller Hansen i 3 kolonner Hans, Møller, Hansen, så det duer ikke, hvis der er nogen der har mere end 2 navne.

Anlu -> hvor skal jeg skrive koden henne ? :)

Og jeg skal vel også vælge hvilken række den skal bruge ? og ikke kun row ?

Tryk Alt+F11 for at åbne VBA-editor.
Åbn det relevante ark ved at dobbeltklikke på den i vinduet til venstre.

Kopier koden ind.
Ret startRow (rækkenr. for første række), endRow (rækkenr. for sidste række) og sheetName til navnet på det ark hvor dine navne står.

Sæt cursoren på en blank linje og tryk på F5, så bør der komme et vindue hvor du kan vælge at køre koden.

anlu:
En lille bemærkning
Hvis der kun er et navn (for navn) eller en tom celle
så kommer: Invalid procedure call or argument
Og koden stopper.

anlu -> KAn ikke få det til at virke, men jeg bruger også mac ! Kan ikke finde ud af at åbne VBA-editoren !

hmm... jeg kender ikke opsætningen på mac. Kan du finde noget menu, der siger noget om macroer og måske noget med visual basic?

Og Store Morten har helt ret - jeg har ikke lavet fejlhåndtering, men antaget at der er mindst to navne i alle de relevante felter. Hvis det ikke er tilfældet kan vi lige tage det, når du har fundet ud af at få åbnet VBA-editoren.

(Og jeg aner ikke om der kan være forskel i VBA mellem windows og mac??)

Jeg vender lige tilbage, når jeg har fundet VBA editoren, ellers når jeg er ved min PC på mit arbejde :)

Højre klik på Ark fanen og vælg "Vis programkode"

Der er ikke den mulighed, når jeg trykker højre klikker der :(

www.kronsell.net/DelNavn.htm

Anlu -> Jeg fandt VBA editoren. Tusind tak, din kode virkede også ! Tak til jer andre også :-)

Opretter du lige et svar?

Godt det lykkedes :o)

Hvor var VBA editoren?