Sanduhr und Eingabesperre während PQ
17.12.2022 13:37:46
Christian
ich habe in dem Code eines Worksheets programmiert das, wenn in bestimmten Zellen der Wert geändert wird, automatisch bestimmte Abfragen ausgeführt werden. Sieht dann so aus:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$J$1" Then
ActiveWorkbook.Connections("Abfrage - Woher").Refresh
End If
If Target.Address = "$B$1" Or Target.Address = "$E$1" Then
ActiveWorkbook.Connections("Query - WV").Refresh
ActiveWorkbook.Connections("Query - Offene Angebote").Refresh
ActiveWorkbook.Connections("Abfrage - Zahlungsende").Refresh
End If
End Sub
Jetzt soll aber, bis die Abfragen fertig aktualisiert sind, eine Sanduhr erscheinen und kein Klick mehr möglich sein (weder auf CMD buttons noch das Worksheet wechseln).Habe schon einiges hier im Forum dazu gelesen aber irgendwie bekomm ich das nicht implementiert. Immer irgendwelche Laufzeitfehler.
Hat noch jemand einen Tipp? Wäre super.
Danke schon mal im Voraus und Grüße
Christian