skille navn i flere celler

Tekst til kolonner, sæt flueben i både komma og mellemrum og vupti :)

ja det er rigtigt men så vil den skille ved alle mellemrum også og jeg vil kun have det adskildt i fornavne og efternavn altså i 2 kollonner:)

Peter

Ahh okai så der er flere fornavne hmm ja så er den ikke så nem :-) men en udfordring.

Ja nemlig men jeg tænkte at den kunne løses med VBA:)

Er der altid kun et efternavn? Eller kan der både være flere efternavne og fornavne/mellemnavne?

Nedenstående formler virker, hvis du har navnet i celle A2 og der kun er et efternavn, eksempelvis: "Jensen, Lars Erik" eller "Jensen Lars Erik". De virker ikke hvis der findes navne af typen: "Knudsen Lund, Anders" eller "Knudsen Lund Anders".

Efternavn i B2: =IFERROR(IF(SEARCH(",";A2;1)>0;LEFT(A2;SEARCH(",";A2;1)-1);"");LEFT(A2;SEARCH(" ";A2;1)-1))
Fornavn i C2: =MID(A2;SEARCH(" ";A2;1)+1;100)

Vh
Anedi

Dejligt det virker, men nu er det sådan at jeg skal opdatere denne fil mindst en gang om ugen så det ville være dejligt med en VBA formel der f.eks tog efternavnet og klippede det ud og placerede det i kolonnen før :)

Peter

Den her makro kan splitte din tekst, der er dog forbehold for hvorledes dine navne optræder. Den søger til første mellemrum og splitter der. Derefter tager den "komma" og retter teksten. Prøv den og lad mig høre om det virker.

Sub Splittekst()

Dim Navn1 As String
Dim Navn2 As String
Dim NN1 As String
Dim NN2 As String
Dim NN3 As String
Dim NN4 As String
Dim Lok1 As Integer
Dim Lok2 As Integer

WBL = ActiveSheet.UsedRange.Rows.Count
Range("a1:a1").Select

For MyA = 2 To WBL
Navn1 = Cells(MyA, 1).Value
Lok1 = InStr(Navn1, " ")
    If Lok1 > 0 Then
        NN1 = Left(Navn1, Lok1 - 1)
        NN2 = Mid(Navn1, Lok1 + 1)
        Cells(MyA, 2).Offset.Value = NN1
        Cells(MyA, 3).Offset.Value = NN2
        Else
    End If
Next MyA

For MyB = 2 To WBL
Navn2 = Cells(MyB, 1).Value
Lok2 = InStr(Navn2, ",")
    If Lok2 > 0 Then
        NN3 = Left(Navn2, Lok2 - 1)
        NN4 = Mid(Navn2, Lok2 + 2)
        Cells(MyB, 2).Offset.Value = NN3
        Cells(MyB, 3).Offset.Value = NN4
        Else
    End If
Next MyB

Range("a1:a1").Select

End Sub

HEj den virker hvis navne er i kolonne a men ikke hvis at de står i kollonne c, selv om at jeg retter a1:a1 til C1:c1 er der andre steder der skal ændres for at det passer til når navnene står i en anden kollone?

Peter

Ja så skal der konsekvensrettes i formlerne.

Navn1 = Cells(MyA, 1).Value skal rettes til Navn1 = Cells(MyA, 3).Value

Tallet i parentesen angiver kolonnen 1 = A og 3 =C og så fremdeles

det samme gør sig gældene for hvor resultatet skal placeres

Cells(MyB, 2).Offset.Value = NN3, her bliver teksten sat i kolonne B, hvis det skal være kolonne D skal det være et 4 tal.

Hej mange tak det var lige det der skulle til:)

Peter