Vielen Dank !
Norbert
Sub refreshQueries()
Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisWorkbook.Worksheets
For Each qt In ws.QueryTables
qt.Refresh
' MsgBox "Aktualisiert:" & qt.Name & " in Tabelle:" & ws.Name
Next
Next
End Sub