Opdeling af tekster

Så hvis jeg anbefale dig at læse op på SØG funktionen eller FIND, HØJRE og VENSTRE, STORT.FORBOGSTAV :-)

Enig. Jeg arbejder med de omtalte funktioner.
Mine udfordringer ligger i at fjerne dele af teksten. Jeg kan opdele efter mellemrum, tegn, opdel i kolonner osv.
Jeg søger efter eksempler. Jeg skriver, hvis jeg finder dem.

denne udf kan løse punkt 1

Option Explicit
Dim MyTekst As String, NewTekst As String
Dim Arr() As String
Dim Count As Integer, tæl As Integer, LastWord As Integer
Function Split40(Tekst As Variant) As String
    Application.Volatile
    MyTekst = Tekst
    Arr = Split(MyTekst)
    tæl = 0
    For Count = LBound(Arr, 1) To UBound(Arr, 1)
        tæl = tæl + 1 + Len(Arr(Count))
        If tæl > 40 Then
            LastWord = Count - 1
            Exit For
        End If
        LastWord = Count
    Next
    For Count = LBound(Arr, 1) To LastWord
        NewTekst = NewTekst & Arr(Count) & " "
    Next
    Split40 = NewTekst
    NewTekst = ""
    Erase Arr
End Function

Prøv og leg med disse to formler for dine punkter 2, 3 og 4

=VENSTRE(A3;FIND("/";A3)-1)
=HØJRE(A3;LÆNGDE(A3)-(FIND("/";A3)))

Teksten skal stå i A3

Hej Jan Hansen

Tusind tak.
Den sad lige i skabet. Fornemt og hurtigt!
Mogens

Hej Daffodil

2 fine formler, der bruger / som udgangspunkt. Jeg leger videre med dem.

Tak.

Velbekomme