Ich habe dieses Makro:
Dim lngZeile As Long
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 19).End(xlUp).Row
For lngZeile = lngLetzte To 1 Step -1
If Cells(lngZeile, 19).Value = 0 Then
Rows(lngZeile).EntireRow.Delete
End If
Next
Dieser Code wurde mir freundlicherweise von "CrazyTom" hier im Forum zur Verfügung gestellt.
Das Makro bewirkt, dass alle Zeilen aus einer Tabelle gelöscht werden (aus der Spalte S) die den Wert 0 enthalten. Das Makro an sich funktioniert einwandfrei wenn ich es ausführe.
Allerdings haut das mit dem Automatismus nicht hin.
Ich hoffe das hilft dir zum Verständnis.
Irgendwoooo funktioniert der Aufruf des Moduls über
Private Sub Workbook_Open()
Call Modul1.loescheZeilen_mitEndsaldo_null
MsgBox "Test"
End Sub
aber halt auch irgendwie nicht :S Bin total ratlos
|