wie kann ich ein Datum (ca.400)durch ein x ersetzen.
durch suchen u.ersetzen bekomme ich es nicht hin.
mfg.rolf
Sub tt()
Dim zelle As Range
For Each zelle In Worksheets("Tabelle1").UsedRange
If IsDate(zelle.Value) Then zelle = "x"
Next zelle
End Sub
Gruß aus dem Sauerland
Jens
Sub tt2()
Dim zelle As Range
For Each zelle In Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeConstants, 1)
If IsDate(zelle.Value) Then zelle.Value = "x"
Next zelle
End Sub
Grüße Gerd
SpecialCells(xlCellTypeConstants, 1)
erläutern?
Welche Zellen in der UsedRange werden dann nur noch geprüft?
Gruß aus dem Sauerland
Jens