in Tabelle Filter löschen vor Copy der ganzen Seite

Question

Hallo zusammen,

Ich hab wider einen kleinen Hänger,
Nachstehen Anfang des Makros
wenn ich in meine Datei Blatt "Menü" Makro anwähle um das Blatt"Auftrag Tabelle" zu sichern(Copieren) soll er falls die Tabelle momentan gefiltert ist den Filter raus holen und anschl. Copieren.

Leider hängt das Makro bei
AktivSheet.ShowAllData

er sagt mir das der code hier nicht unterstützt wird ???
Kann mir da einer weiter helfen ???


Danke in voraus
Gruß Dutchi

Sub STADAT_ALLE_Update()

'verhindert Bildschirmwechsel - Autosicherung im Hintergrund
Application.ScreenUpdating = False


Sheets("Auftrag Tabelle").Select
' Filter wird aufgehoben
ActiveSheet.ShowAllData
Cells.Select
Selection.Copy

Answer 1

Hi,

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Bis später,
Karin

Answer 2

Hallo Karin,

Danke hat super funktioniert,

Hatte zwar in der Zwischenzeit einen andern "Umweg" gebastelt aber deiner ist direkter und einfacher.

Vielen Danke nochmal

Gruß Dutchi