Microsoft Excel

Herbers Excel/VBA-Archiv

letztes Zeichen löschen | Herbers Excel-Forum


Betrifft: letztes Zeichen löschen von: Roger Rabbit
Geschrieben am: 16.11.2009 15:22:00

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

  

Betrifft: If Right(ActiveCell.Value, 1) = Chr$(34) von: Matthias L
Geschrieben am: 16.11.2009 16:00:48

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


  

Betrifft: Problem gelöst von: Roger Rabbit
Geschrieben am: 16.11.2009 18:20:28

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


  

Betrifft: gern geschehen ... kwT von: Matthias L
Geschrieben am: 16.11.2009 18:27:27




Beiträge aus den Excel-Beispielen zum Thema "letztes Zeichen löschen"