ich möchte die Spalte AN ab Zelle 4 den Wert "#WERT!" löschen.
Das Ende soll durch die Spalte B erfolgen.
mfg Kurt P
Sub LoeschenWert()
Dim LastCell As Long, raZelle As Range, RangeAN As Range
With ActiveSheet
LastCell = .Cells(Rows.Count, 2).End(xlUp).Row
End With
Set RangeAN = Range(Cells(4, 40), Cells(LastCell, 40))
For Each raZelle In RangeAN
If IsError(raZelle) Then
raZelle.Value = ""
End If
Next raZelle
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen