opdeling af en celle til 3

prøv at kigge her: http://www.eksperten.dk/spm/813556

http://www.sobolsoft.com/excelsplit/

vedr http://www.eksperten.dk/spm/813556, jeg aner altså ikke hvordan man ligger noget ind under makro :-)

Tast Alt+F11
Vælg Insert  -  Module
Indsæt koden fra http://www.eksperten.dk/spm/813556

og

i kolonne A skriver du =delnavn($A$4;1)
i kolonne B skriver du =delnavn($A$4;2)
i kolonne C skriver du =delnavn($A$4;3)

Det hjalp desværre heller ikke. På personer som kun har for- og efternavn, smider excell stadig efternavnet i mellemnavn kolonnen. :-(

Altså samme effekt som "tekst til kolonner"

Jeg kunne godt få denne til at virke.

Function delnavn(navn As String, nr As Integer) As String
For t = 1 To Len(navn)
  navn1 = Left(navn, t)
  If Mid(navn, t, 1) = " " Then Exit For
Next t
Start = t

For t = Len(navn) To 1 Step -1
  navn3 = Right(navn, Len(navn) - t)
  If Mid(navn, t, 1) = " " Then Exit For
Next t
slut = t

If slut = 0 Then
    navn3 = ""
    navn2 = ""
End If

If Start <> slut And slut > 0 Then
    navn2 = Mid(navn, Start, slut - Start)
End If

Select Case nr
Case 1: delnavn = navn1
Case 2: delnavn = navn2
Case 3: delnavn = navn3
Case Else: delnavn = "?"
End Select
End Function

ja Funktionen fejler ikke noget, så det må være en fejl 40 :-)