mit nachfolgender Schleife soll in Spalte A (ab A12 abwärts bis Zellinhalt = "") geprüft werden, ob in der Zelle eine Formel steht oder ein Datum.
Steht eine Formel drin, sollen die Zellinhalte der 4 rechts daneben liegenden Zellen gelöscht werden (Formel in Spalte A soll bleiben).
Steht ein Datum drin, soll die gesamte Zeile gelöscht werden (wie "Strg" + "-" , nach markieren der Zeile wird diese aus der Tabelle entfernt und die nachfolgenden Zellen nach oben geschoben).
In meiner nachfolgenden Schleife funktioniert das erst, wenn ich das Makro zweimal durchlaufen lasse???
Sub FormularLöschen()
Dim i As Integer
On Error Resume Next
i = 12
Do Until IsEmpty(Cells(i, 1).Value)
If Cells(i, 1).HasFormula Then
Range(Cells(i, 2), Cells(i, 5)).Clear
ElseIf IsDate(Cells(i, 1)) Then
Rows(i).Select
Selection.EntireRow.Delete
End If
i = i + 1
Loop
End Sub
Danke Mark