Hochkommata in Zellen löschen
Andreas
ich habe eine Tabelle, deren Zelleninhalte fast alle mit einem Hochkomma beginnen. Und all' diese Hochkommata möchte ich entfernen.
Ohne Erfolg habe ich's bereits mit dem Standard-Befehl "Bearbeiten, Ersetzen" versucht (Zeichen "'" gegen ""). Ebenso erfolglos per VBA:
Sub Ersatz_Zeichen()
ActiveSheet.TransitionFormEntry = True
Cells.Replace What:=Chr(39), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveSheet.TransitionFormEntry = False
End Sub
Mit Dank im Voraus für alle Hilfe,
Andreas
Anzeige