ich suche einen Befehl wie ich aus dem Menü "Daten" den Punkt "alle aktualsieren" ausführen kann.
funktioniert das evtl. per Application.Dialogs( ... ) ?
Grüße
Peter
Sub kopieren17302200()
With ActiveWorkbook
ActiveWorkbook.RefreshAll
Application.Wait (Now + TimeValue("0:00:20"))
.Worksheets("RealtimeEinzelvergleich").Range("q2:q31").Copy
.Worksheets("1730-2200").Range("A1").PasteSpecial Paste:=xlValues
.Worksheets("RealtimeEinzelvergleich").Range("u2:u31").Copy
.Worksheets("1730-2200").Range("B1").PasteSpecial Paste:=xlValues
Application.Wait Now + TimeSerial(0, 0, 0.5)
.Worksheets("1730-2200").Range("d1:e30").Copy
.Worksheets("1730-2200").Range("g1").PasteSpecial Paste:=xlValues
End With
End Sub