Sub TabelleAktualisieren()
    
    Dim dblBeginn As Double
    Dim dblEnde As Double
    
    Dim i As Integer
    Dim strAusgabe As String
    
    For i = 1 To ThisWorkbook.Worksheets.Count
    
        dblBeginn = Now
        
        ThisWorkbook.Worksheets(i).Range("A4").ListObject.QueryTable.Refresh BackgroundQuery:=False
        
        dblEnde = Now
    
        strAusgabe = strAusgabe & vbCr & ThisWorkbook.Worksheets(i).Name & ": " & Format(dblEnde - dblBeginn, "hh:mm:ss.000")
    Next i
    
    MsgBox strAusgabe
        
End Sub