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