Ich habe eine Mitgliederverwaltung bei deren Aufruf ein VBA Makro abläuft und mir Geburtstage, Jubiläen u. ä. anzeigt. Die erste Abfrage gilt Mitgliedern, die bis einschließlich HEUTE ausgetreten sind. hierfür verwende ich den Autofilter in der Spalte mit den Austrittsdaten. Das funktioniert auch ganz gut, aber Excel fragt mich auch bei nicht vorhandensein von Daten, ob es diese Zeilen löschen soll. Ich möchte aber, dass, wenn der Autofilter keine Zeilen mit Inhalt anzeigt, gleich die nächste Abfrage startet.
Einen Ausschnitt aus meinem VBA Code habe ich hier:
' Mitglieder nach Erreichen des Austrittsdatums löschen
Range("A1").AutoFilter Field:=iAus, Criteria1:="0") Then
Select Case MsgBox("Ausgetreten! Daten löschen?", vbQuestion + vbYesNo)
Case vbNo
Case vbYes
Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible). _
EntireRow.Delete
End Select
End If
ActiveSheet.ShowAllData
Selection.AutoFilter
Ich glaube die Zeile
If WorksheetFunction.CountIf(Columns("I"), ">0") Then
ist irgendwie ohne Funktion, bzw. macht nicht das was ich möchte. Aber mir fällt nix besseres ein.Was läuft falsch und warum?
LG Steffan