ich knoble den ganzen Tag an einem VBA Problem welches ich nicht gelöst bekomme.
habe mehre Einzelschritte in eine 'große' SUB gepackt, die alle einzeln funktionieren
Zusammengeworfen bekomme ich aber einen Laufzeitfehler 1004 "Die Autofilter-Methode des Range Objektes ist fehlerhaft." an dieser Stelle (fett):
Dim intMR As Integer
intMR = Sheets("xxxx").UsedRange.Rows.Count
With Sheets("xxxx")
.Select
.Unprotect
Selection.AutoFilter
ActiveSheet.Range("A1:G" & intMR).AutoFilter Field:=3, Criteria1:="Affen"
ActiveSheet.Range("A1:G" & intMR).AutoFilter Field:=1, Criteria1:="Paviane"
Range("A2:G" & intMR).SpecialCells(xlCellTypeVisible).Copy
End With
Nun mein tatsächliches Problem:
Wenn ich an dieser Stelle im Visual Basic Editor oben den blauen "BEENDEN" Button drücke - ODER - wenn ich via Debuggen / Einzelschritt jede Zeile einzeln durchgehe, klappt es ganz wunderbar ohne Fehler.
Ich hab bereits versucht:
- UsedRange zu reseten (Application.ActiveSheet.UsedRange)
- AutoFilter zu reseten (AutoFilter.ShowAll)
- Application.CutCopyMode = False
- per 'End' und getimten SUB Aufruf eine programmatische Unterbrechung einzubauen
- das Workbook zwischenzuspeichern
- .Select / .Unprotect oben zu entfernen
alles bisher ohne Erfolg
WAS genau bewirkt dieser BEENDEN Button bzw der manuelle Durchlauf, was ich im Macro Verlauf nicht hinbekomme?
Danke im Voraus für Eure Hilfe.