Ich habe eine Frage zu untenstehendem Code und zwar zur Zeile
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
wenn keine Konstanten vorhanden, kommt die Fehlermeldung "Keine Zellen vorhanden". Wie kann man diese Meldung unterdrücken, dass der Code hier nicht angehalten wird?
Danke für eine Antwort.
Peter
With Range(Cells(Z1, 2), Cells(Z2, 2))
.EntireRow.Sort key1:=Cells(Z1, SP + 2), order1:=xlAscending, header:=xlNo
.FormulaR1C1 = "=IF(RC[" & SP & "]=R[-1]C[" & SP & "],TRUE,RC[-1])"
.Formula = .Value
.EntireRow.Sort key1:=Cells(Z1, 2), order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With