Zählen, wenn Zeile gelöscht wurde
18.06.2015 13:34:00
Peter
mit nachfolgendem Code lösche ich die Zeilen unter bestimmten Bedingungen. Wie kann ich nun die gelöschten Zeilen noch zählen und dann gleich ausgeben?
Wäre schön, wenn mir da jemand hlfen könnte.
Danke im Voraus.
Gruß Peter
Sub Loeschen_Zeilen()
' letzte Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
MsgBox lz
'** Durchlauf aller Zeilen
For t = lz To 5 Step -1 'Zählt rückwärts bis Zeile 5
'Abfragen, ob in den Spalten 0 steht
If Cells(t, 8).Value = 0 And Cells(t, 9).Value = 0 And Cells(t, 11).Value = 0 Then
Rows(t).Delete Shift:=xlUp
End If
Next t
End Sub
Anzeige