For Each Zelle In Worksheets("Sheet1").Range("V1:V" & Anzahl)
If Zelle.Value = "0" And Range("G" & Zelle.Row) = 1 Then
Zelle.EntireRow.Delete
End If
Next Zelle
Hallo Zusammen,
Die Funktion soll in einer Excel Datei alle befüllten Zeilen (Anzahl ist das Ergebnis einer anderen Funktion, die die Zeilen zählt) durchgehen und prüfen, ob in einer Zeile in Spalte V der Wert 0 ist und in Spalte G der selben Zeile der Wert 1 ist.
Wenn das der Fall ist, soll besagte Zeile gelöscht werden.
Die Funktion funktioniert, wenn auf die 2te Löschbedingung (And Range("G" & Zelle.Row) = 1 ) verzichtet wird.
Weiß jemand weiter, woran es hier scheitert?
Vielen Dank im Vorhinein,
Paul
|