Sub RefreshAllTables()
Application.EnableCancelKey = xlInterrupt
' Alle "externen Daten" aktualisieren
ActiveWorkbook.RefreshAll
Application.ScreenUpdating = True
' Makro zum Formatieren aller Tabellen ausführen
Run ("FormatAllTables")
' Call FormatAllTables ' hilft auch nicht
End Sub
Recht simple, aber folgendes Problem, alle Tabellen
sind leer und alle Abfragen auf Externe Daten richtig
definiert. RefreshAll wird korrekt durchgeführt,
Formatierung läuft durch (aber immer noch leere Tabellen),
gerade wenn Makro abgelaufen ist, da geschieht es.
Erst jetzt werden die Daten der Abfragen in die Tabellen
übernommen (sieht man an Statusanzeige unten links,
bissl flackern und mehrere Fortschrittsanzeigen schnell
nacheinander)! Die Formatierung hat nicht gewirkt, weil
die Daten in dem Moment noch nicht da waren.
Was mach ich falsch? Application.ScreenUpdating = False
habe ich nu extra schon weggelassen! Ohne die Daten macht
die Formatierung aber keinen Sinn und den Nutzer darum
bitten, nacheinander auf 2 Button zu drücken ist Mist.
Bitte also nur Lösungsvorschläge für All-In-One-Macro!
Kennt noch jemand diese Problem?
- Danke