Jeg får som regel ark hvor det fulde navn står i en celle. Det skal jeg have lavet om til Fornavn + Efternavn (2 celler). Den løsning jeg selv kan finde ud af, efterlader mig dog ikke med et helt acceptabelt resultat, da mit data står som følger:
Eksempel:
Celle 1 Celle 2
Lars Højer Hans Christian Andersen Marie Louise Flamand Knud Eriksen
Som I kan se, så deler den ikke op 100 % korrekt, da ens efternavn kun er det allersidste ”navn” i ens fulde navn. Som her ”Andersen” og ”Flamand”.
Mit spørgsmål er så, om der er nogen som kender en metode således at det bliver gjort korrekt? Det vil være en kæmpe hjælp, da jeg i så fald ikke skal kontrollere tusindvis af kunder manuelt.
Eks.: 4 navn i kolonne A - adskillelse af fornavn i B og efter navn i C:
Sub adskil() For ræk = 1 To 4 navn = Cells(ræk, 1) For x = Len(navn) To 1 Step -1 If Mid(navn, x, 1) = " " Then efternavn = Mid(navn, x + 1) fornavn = Left(navn, x - 1)
Cells(ræk, 2) = fornavn Cells(ræk, 3) = efternavn Exit For End If Next x Next ræk
Marker din data i kolonnen, og den skriver i de 2 kolonner til højre.
Public Sub AdskilNavne() For Each c In Selection.Cells c.Offset(0, 1) = Left(c, InStrRev(c, " ") - 1) c.Offset(0, 2) = Right(c, Len(c) - InStrRev(c, " ")) Next End Sub
kabbak-> Tak :-). Men i så fald listes diagramarkene ikke :-). Det var derfor jeg supplerede med den alternative løsning. Så kan man både se og klikke sig vej frem til både regne- og diagramark.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
