Hochkommas in Zellen setzen
Helmut
reine interessensfrage:
wieso funktioniert das setzen von hochkommas mit dem code:
Sub Hochkomma()
With Worksheets("Tabelle1") 'richtigen Tabellennamen eingeben
For Each Zel In .UsedRange
Zel.Value = Replace (Zel.Value,"'","")
If Left(Zel.Value, 1) "'" And Zel.Value "" Then Zel.Value = "'" & Zel.Value
Next
End With
End Sub
danke im Voraus
lg, helmut
Anzeige