Sub test1()
Range("W3").Select
Do Until Application.WorksheetFunction.CountA(ActiveCell.Range("W3:W23")) = 0
If ActiveCell = 1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
'In der Spalte ab W3 stehen entweder 1 oder 0, bei dem Wert 1 soll die gesamte Zeile gelöscht werden, leider geht die Funktion nicht in die If Funktion rein sondern überspringt diese komplett. Das rein gehen in die Zelle W3 funktioniert hingegen, jedoch dann wird nicht die If Funktion abgerufen. das ganze soll so lange gehen bis in der Spalte W nix mehr steht. bzw kommen ab dem Zeitpunkt wo es keine 1 und 0 mehr stehen eh nur noch leere Spalten.
|