Hallo Exellaner und noch ein frohes neues Jahr.
Ich habe folgendes Problem:
In meiner Mitgliederverwaltung wird beim öffnen der Datei überprüft, ob einzelne Personen zum 31.12. des vergangenen Jahres ausgetreten sind. Ist dies der Fall, so wird über die Funktion Autofilter die entsprechende Liste angezeigt und gefragt, ob diese Mitglieder gelöscht werden sollen. Bis dahin funktioniert alles.
Wenn ich aber nun löschen möchte, dann erscheint eine Fehlermeldung:
Laufzeitfehler 1004
Bei überlappenden Markierungen ist die Ausführung dieses Befehls nicht möglich.
Dazu muss ich sagen, dass ich die VBA Programmierung unter Office 2007 (Windows) entwickelt habe und nun mit OfficeMac 2011 arbeite. Alles andere funktioniert, aber das Löschen der ausgewählten Daten eben nicht.
Hier ist mal der Abschnitt, der den Fehler verursacht:
' Mitglieder nach Erreichen des Austrittsdatums löschen
Range("A1").AutoFilter Field:=iAus, Criteria1:=" If WorksheetFunction.Subtotal(3, Range("I2:I150")) > 0 Then 'Teilergebnis(3 entspricht: ANZAHL2, Bereich)
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
Application.ScreenUpdating = False
Die Zeile mit dem Delete Befehl wird vom Debugger gelb markiert.
Ich hoffe, ihr könnt mir weiterhelfen.
LG Steffan