RefreshPeriod bei allen sheets to False
05.07.2022 10:03:04
Johannes
Ich möchte bei meinen Arbeitsblättern die automatische Abfrage manchmal ausschalten, weil es mich nervt.
Bei 4 Arbeitsmappen mit teilweise 10 Blättern kann das dauern und man nichts arbeiten in dieser Zeit.
Ich habe versucht eins meiner Codes umzuarbeiten, einen zum wieder einschalten und einen zum Ausschalten der "refreshPeriod".
Irgendwie weiß ich nicht wie ich die querytable definieren soll, hab dann auch ein Makro aufgezeichnet aber komm nicht weiter
ich füge mal den Codes ein, mit dem ich es versucht habe.
Johannes
Sub Refresh_Data_OUT()
' set data refresh to 20 min
Application.ScreenUpdating = False
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "All", "Ant", Tabelle1.Name
Case Else
' Range("E13").Select
With Selection.QueryTable
.Name = "statement"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False 'change
.BackgroundQuery = False 'change
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = False 'change
End With
End Select
Next
Application.ScreenUpdating = True
MsgBox " Data refresh all Pages off !"
Sheets("Master").Select
Range("H7").Select
End Sub