Thema: letztes Zeichen löschen | Herbers Excel-Forum

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit

Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True

ersetze ich z.B. aus einem html-Import die Zeichenfolge "&html-euro" durch "€".
Läßt sich mit Replace auch gezielt das letzte Zeichen ersetzen? Also nur wenn das letzte Zeichen ein " ist, dann löschen?
Gruß
Rüdiger

Hallo
mal als Bsp. für die aktive Zelle
If Right(ActiveCell.Value, 1) = Chr$(34) Then
ActiveCell.Value = Left((ActiveCell.Value), Len(ActiveCell.Value) - 1)
End If
so?
Gruß Matthias

Hallo Matthias,
danke für Deine Hilfe. Es funktioniert genau wie gewünscht. Ich musste mein Makro nur etwas umbauen, weil Dein Ansatz andere Voraussetzungen erfordert.
Aber letztlich zählt das Ergebnis. Danke nochmal.
Gruß
Rüdiger