mit nachfolgendem Makro prüfe ich bis zur ersten leere Zelle in Spalte 1 , ob in Spalte 1 (beginnend ab A7) in den Zellen eine Formel oder der Text "s.oben" steht.
Private Sub CommandButton1_Click()
Dim i As Integer
On Error Resume Next
i = 7
Do Until IsEmpty(Cells(i, 1).Value)
If Cells(i, 1).HasFormula Then
Range(Cells(i, 2), Cells(i, 6)).ClearContents
ElseIf (Cells(i, 1).Value = "s.oben") Then
Rows(i).Select
Selection.EntireRow.Delete
i = i - 1
End If
i = i + 1
Loop
End Sub
Steht eine Formel drin, werden in der betreffenden Zeile die Spalte 2 bis6 gelöscht = Range(Cells(i, 2), Cells(i, 6)).ClearContents .
Steht der Text "s.oben" drin, soll die gesamte Zeile gelöscht werden (wie mit "Strg" + "-").
Wenn ich das Makro starte, kann ich nur mit "Strg" + "Esc" aus der Schleife "aussteigen".
Was mache ich falsch???
Vielen Dank
MikeS