Jede xte Zeile löschen, wenn alle 0 sind

Hallo zusammen,
das ist mein erster Beitrag hier und ihr habt mir schon oft bei meinen VBA Problemen geholfen. Mein jetziges habe ich aber leider nirgends gefunden.
Meine Werte sehen als Minmalbeispiel so aus, in Wirklichkeit deutlich mehr Zeilen und Spalten:
1 1 1 1
1 1 1 1
0 0 0 0
0 0 0 0
1 1 1 1
<b>0 0 0 0</b>
0 0 0 0
0 0 0 0
-->
1 1 1 1
1 1 1 1
1 1 1 1
<b>0 0 0 0</b>
Mein Ziel ist es, Zeilen in denen nur Nullen stehen zu löschen, falls die 0er Zeilen in jeder x-ten Zeile vorkommen. In diesem Fall würde dies bedeuten, dass die Zeilen 3 und 4 gelöscht würden, weil die Zeilen 7 und 8 ebenfalls 0er Zeilen sind, die Spalte 6 aber eben nicht (da die zweite Zeile keine 0 ist).
Ich habe schon viel rumprobiert, komme aber nicht auf richitge Ergebnis.
Mein Ansatz:
Sub Zeilenlöschen()
Dim ws As Worksheet
Set ws = Worksheets(1)
ls = ws.Cells(1, wsQ.Columns.Count).End(xlToLeft).Column
lz = ws.Cells(wsQ.Rows.Count, 1).End(xlUp).Row
For i = 1 To lz
If Application.CountIf(Range(Cells(i, 1), Cells(i, ls)), 0) = 4 Then
'hier soll dann jede weitere xte Zeile überprüft werden, ob sie alle 0 sind und wenn ja gelöscht werden
Vielen Dank für eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi
kannst du mal genauer beschreiben, wann genau gelöscht werden soll?
so wie ich das beispiel deute, soll jede 3. Nullzeile gelöscht werden wobei die 3 auch variabel sein kann.
ich würde hier mit formeln und Hilfsspalten arbeiten, um in einem ersten schritt die zu löschenden Zeilen zu markieren und dann zu löschen.
1. formel für E1 bis Ende. diese Formel kennzeichnet die Null-Zeilen mit 1:

 =1*(zählenWenn($a1:d1;"0")=0)

2a. in f1 die formel:

=e1

2b. formel ab F2 bis ende, diese Formel zählt die Nullzeilen hoch:

=e2+f1

3a.in die Zelle G1 kommt die 0
3b. ab Zelle G2 bis ende diese Formel, sie kennzeichnet die zu löschenden Zeilen mit 0 und die anderen mit der Zeilennummer.

=wenn(und(e2=1;rest(f2;3)=0);0;zeile())

wenn man das soweit hat kann man die mit 0 gekennzeichneten Zeilen einfach über
daten - datentools - duplikate entfernen löschen. dabei die option "keine Überschrift" verwenden.
dann löscht man die Hilfsspalten wieder.
probiers erstmal von Hand aus, wenn es funktioniert und du es verstanden hast, programmierst du einfach diese Schritte in VBA nach.
das ist der einfachste und schnellste Weg um in großen Listen sehr schnell viele Zeilen mit bedingung zu löschen
außrdem hilft der Recorder beim erstellen des codes.
gruß Daniel

Sub Unit() Dim rngDel As Range, C As Range, Z As Long Set rngDel = Rows(Rows.Count) For Each C In Cells(1).CurrentRegion.Rows If Application.Sum(C) = 0 Then Z = Z + 1 If Z = 3 Then Set rngDel = Union(rngDel, Rows(C.Row)) Z = 0 End If End If Next rngDel.Delete Set rngDel = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Jede xte Zeile löschen, wenn alle 0 sind

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Jede xte Zeile löschen, wenn alle 0 sind

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread