Jeg har lavet en makro som deler en tekst i celle D1 op i to dele i D2 og D3. Det skulle ikke være svært at rette den til. så den passer til dit ønske.
Sub Macro2() Dim Emne, Emne1, Emne2 As String Emne = Cells(1, 4) For x = 45 To 1 Step -1 If Mid(Emne, x, 1) = " " Then Emne1 = Left(Emne, x - 1) Emne2 = Mid(Emne, x + 1, 999) GoTo A: End If Next A: Cells(2, 4) = Emne1 Cells(3, 4) = Emne2 End Sub
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.