Zählen, wenn Zeile gelöscht wurde

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zählen, wenn Zeile gelöscht wurde
von: Peter
Geschrieben am: 18.06.2015 13:34:00

Hallo zusammen,
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

Bild

Betrifft: AW: Zählen, wenn Zeile gelöscht wurde
von: Rudi Maintaire
Geschrieben am: 18.06.2015 13:43:50
Hall,

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
c=c+1
End If
Next t
msgbox c
End Sub


Bild

Betrifft: Rudi, Super. Besten Dank.
von: Peter
Geschrieben am: 18.06.2015 13:58:14
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zählen, wenn Zeile gelöscht wurde"