Code: Hochkomma
WalterK
mit diesem Teil meines Codes wird das Hochkomma in den von einem anderen Programm gelieferten Daten gelöscht.
Hier der Codeteil:
With ActiveSheet
For Each Zelle In .UsedRange
Zelle = Replace(Zelle, "'", "")
Next
Was muss geändert werden, damit diese Aktion nur in den Zellen ausgeführt wird, in denen das Hochkomma auch vorkommt, es gibt nämlich auch Spalten ohne Hochkomma. So wie es jetzt ist werden jedenfalls in den Zellen, in denen kein Hochkomma war, die Datümer zerschossen.
Besten Dank für die Hilfe und Servus, Walter