Celinhoud splitsen over meerdere cellen (vba)

[Robert Smidt]

Beste Cow18,

Ik was wat te voorbarig met mij conclusie omdat ik de formules zag staan en dacht dat dat niet de bedoeling was, ik heb de formules verwijderd en de codes aangepast, het werkt nu echt geweldig.
Heb je alleen nog een oplossing hoe je van de voornamen initialen kunt maken in cel G3? Dus: Dirk Jan moet worden D.J. in cel G3.

Nogmaals heel erg bedankt, hier ben ik super blij mee.

 

[cow18]

een beetje afgekeken van Edmoor

 If UBound(naam) = 1 Then                   'er zijn 2 delen
         Range("O4").Value = Trim(naam(0))       'gestripte 1e deel
         vn = Split(Trim(naam(1)))               'gestripte 2e deel splitten
         For i = 0 To UBound(vn)                 'alle delen aflopen
            vn(i) = Left(vn(i), 1)               'alleen initiaal overhouden
         Next i
         Range("O5").Value = Join(vn, ".") & "."   'samenvoegen initialen
      Else
         Range("O4").Value = ""
         Range("O5").Value = ""
      End If

 

[Robert Smidt]

Ik heb het getest en werkt echt perfect. Ik wil jou én zeker ook Edmoor heel erg bedanken voor de oplossing. A.s. maandag ga ik dit toepassen in het originele bestand. Hier moet ik alleen de posities, zoals Range("O4")., wijzigen in cell.Offset(, 4).Value enz. dat wordt nog even een dingetje. Heel misschien dat ik dan nog een keer om hulp ga vragen, maar anders is het helemaal goed zo. Beiden, nogmaals ontzettend bedankt!!!