Text in Zellen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Text in Zellen
von: Armin
Geschrieben am: 18.07.2002 - 16:27:36

Ich habe eine Zelle in ein text drin steht ich will aber immer nur das letzte wort in die Zelle daneben koiert bekommen.
Bitte um Hilfe danke


Armin


nach oben   nach unten

Re: Text in Zellen
von: axel.meyer
Geschrieben am: 18.07.2002 - 17:35:50

hi armin,

versuch es mal damit:


Sub tt()
txt = ActiveCell.Value
tl = Len(txt)
Do Until i = 20
    l = InStr(txt, " ")
    If l = 0 Then
        Exit Do
    End If
    txt = Right(txt, tl - l)
    i = i + 1
    tl = tl - l
Loop
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txt
End Sub

gruß, axel

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Text in Zellen"