Ich habe dazu folgendes Makro gebaut:
Sub Refresh()
Application.DisplayAlerts = False
ActiveWorkbook.RefreshAll
Sheets("Berechnungsgrundlage").Select
Sheets("Daten").Select
Columns("A:AZ").Select
Columns("A:AZ").EntireColumn.Autofit
Range("D3").Select
Application.DisplayAlerts = True
End Sub
Die Aktualisierung klappt problemlos und auch die Formatierungsbefehle nimmt er vor. Allerdings landet er am Ende des Makros nicht wie vorgesehen auf dem Blatt "Daten" in Zelle D3, sondern immer in einer der Abfrage-Tabellen auf dem Blatt "Berechnungsgrundlage". Vermutlich, weil die ABfrage länger braucht als der Rest des Makros. Habe es schon mit Pause und - wie hier - mit dem AUsschalten des Displays versucht, aber leider ohne Erfolg. Hat jemand eine Idee?