947 Aufrufe
in Tabellenkalkulation von dutchi1972 Mitglied (419 Punkte)
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

2 Antworten

0 Punkte
von beverly Experte (3.5k Punkte)
Hi,
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Bis später,
Karin
0 Punkte
von dutchi1972 Mitglied (419 Punkte)
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

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...