heute eine Kleinigkeit, aber isch komme nicht drauf.
Habe von O-J in verschiedenen Zellen #WERT! stehen.
Diese sollten alle mit einem Makro gelöscht werden.
Danke
Specialcells(xlCellTypeFormulas,xlErrors)
Gruess HansueliSub Makro5()
Columns("J:N").Select
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("J6").Select
End Sub
Bitte eventuell Formel korrigieren.Sub Test()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("J:N").UsedRange
For Each Zelle in Bereich
If Zelle "" Then
If IsError(Zelle) Then Zelle = ""
End If
Next Zelle
End Sub
Nochmal, warum àmderst du deine Formel nicht, dass die den Fehler erst gar nicht ausgibt?