letztes Wort einer Zelle in Zeile stehen lassen
19.09.2016 15:54:11
TinoB
ich habe folgenden Code gefunden wo mir in Zelle G5 alle Zeichen ab dem ersten Leerzeichen von rechts löscht:
Sub t()
Dim strText As String
strText = Worksheets("Tabelle2").Range("G5").Value
strText = Right(strText, Len(strText) - InStrRev(strText, " "))
Worksheets("Tabelle2").Range("G5").Value = strText
MsgBox strText
End Sub
Würden mir hier bitte jemand behilflich sein.
Danke,
Gruß
Tino