Herbers Excel/VBA-Archiv

Löschen Inhalt außer letzte Zeichenkette

• Löschen Inhalt außer letzte Zeichenkette von jkh vom 06.11.2020 20:11:03
• AW: Löschen Inhalt außer letzte Zeichenkette - von Hajo_Zi am 06.11.2020 20:25:22

Betrifft: Löschen Inhalt außer letzte Zeichenkette von: jkh
Geschrieben am: 06.11.2020 20:11:03

Hi,


ich suche eine Lösung (Makro), um aus einer unbestimmten Anzahl von markierten Zellen den gesamten Inhalt abgesehen von der letzten Zeichenkette zu löschen.

Bsp.: Inhalt der Zelle ist "fla fsf fdasfe safd letzte,zeichenkette.2020". Nach z.B. Aktivierung des Makros bleibt in der Zelle "letzte,zeichenkette.2020" .

Gibt es da eine effiziente Lösung bzw. ein einfaches Makro etc. ?



Beste Grüße

  

Betrifft: AW: Löschen Inhalt außer letzte Zeichenkette
von: Hajo_Zi
Geschrieben am: 06.11.2020 20:25:22

Option Explicit

Sub Letzte()
    Dim RaZelle As Range
    For Each RaZelle In Selection
        RaZelle = Mid(RaZelle, InStrRev(RaZelle, " ") + 1)
    Next RaZelle
End Sub

Beiträge aus dem Excel-Forum zum Thema "Löschen Inhalt außer letzte Zeichenkette"