SuchenErsetzen per VBA
08.11.2016 09:37:18
Jockel
ich möchte ich einer Spalte nach "0" suchen und diese durch "" ersetzen:
Dim Zelle2 As Range
For Each Zelle2 In Worksheets("Test").Range("Q3:Q" & letzteZeile_sheet)
Zelle2.Value = Replace(Zelle2.Value, "0", "")
Next Zelle2
Jetzt hat es aber in der Spalte auch zB Einträge, wodie Null Bestandteil eines Strings ist. ZB "089" oder "040".
Ich möchte aber mit dem VBA Code erreichen, dass nur Nullen gelöscht werden, wo diese alleine in der Zelle steht, also so "0"
"040" soll auch weiter so bleiben und nicht zu "4" geändert werden.
was muss ich denn da ändern ?
Danke
Jockel