Zeile löschen, wenn Summe=0
13.06.2005 16:22:33
oli
Ich möchte, dass in einer Tabelle jede Zeile gelöscht wird, deren Summe=0 ist.
Fragen:
1. wie kann ich es erreichen, dass in der Tabelle ab Zeile 2 jede Zeile gelöscht wird, deren Summe=0 ist?
2. Kann ich die Public
Function (s. unten) auch direkt ins Modul einbauen ?
Folgendes habe ich schon ausprobiert:
(-> Ergebnis: jede 2. Zeile wird gelöscht, Summe wird nicht berücksichtigt)
Makro in Tabelle:
Public
Function LastRow()
Dim intLastRow As Integer, intCounter As Integer
intCounter = 1 'Zähler
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte 1
End Function
Makro in Modul:
Sub Makro1()
Dim intLastRow
intLastRow = Tabelle1.LastRow
intCounter = 2
While intCounter <= intLastRow
Range(Cells(intCounter, 1), Cells(intCounter, 50)).Select
If Sum = 0 Then Selection.Delete
'Ende Schleife
intCounter = intCounter + 1
Wend
End Sub