Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 11:04:21
Florian
ich versuche mit diesem Code einen Stern aus Zellen zu löschen bzw. gegen nichts zu ersetzen. Allerdings bleiben die Sterne erhalten.
Kann jemand helfen?
Sub SternLoeschen()
Dim wks As Worksheet
Dim rngZelle As Range
Dim lngLetzteZeile As Long
Set wks= ThisWorkbook.Sheets("Tabelle")
lngLetzteZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row
wks.Activate
For Each rngZelle In wks.Range("I2:I" & lngLetzteZeile)
rngZelle.Value = Replace(rngZelle.Value, "~*", "")
Next rngZelle
End Sub