Power Querry aktualisierung in VBA Abfragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich hab das jetzt mal so versucht

Sub AktualisiereAlleAbfragen()



Dim rngZelle As Range





With ThisWorkbook

    .Connections("Abfrage - MonateZusammengeführt").Refresh

 End With



With tblDaten

    For Each rngZelle In .UsedRange

        rngZelle.Interior.Color = xlNone

    Next

End With



Call AbfrageStatusAbru1fen



End Sub



Sub AbfrageStatusAbru1fen()

    Dim con As WorkbookConnection

    Dim abfrageName As String

    Dim abfrageAktiv As Boolean

    

    ' Setze den Namen deiner Abfrage

    abfrageName = "Abfrage - MonateZusammengeführt"

    

Do

    ' Iteriere durch die Verbindungen und finde die entsprechende Abfrage

    For Each con In ThisWorkbook.Connections

        If con.Name = abfrageName Then

            ' Überprüfe, ob die Abfrage gerade aktualisiert wird

            abfrageAktiv = con.OLEDBConnection.Refreshing

            

            ' Status überprüfen und entsprechende Aktion durchführen

            If abfrageAktiv Then

            Else

                Exit Do

                

            End If

            

            Exit For

        End If

    Next con

Loop

Call WerteBerechnenUndSpaltenAusblenden

End Sub

Wenn ich das im Einzelschritt durchgehe funktioniert es auch korrekt, wenn ich es aber "einfach" ablaufen lasse friert Excel komplett ein. Was mache ich da noch falsch?

Sub AktualisiereAlleAbfragen() Dim rngZelle As Range With ThisWorkbook .Connections("Abfrage - MonateZusammengeführt").Refresh End With With tblDaten For Each rngZelle In .UsedRange rngZelle.Interior.Color = xlNone Next End With Call AbfrageStatusAbru1fen End Sub Sub AbfrageStatusAbru1fen() Dim con As WorkbookConnection Dim abfrageName As String Dim abfrageAktiv As Boolean ' Setze den Namen deiner Abfrage abfrageName = "Abfrage - MonateZusammengeführt" Do ' Iteriere durch die Verbindungen und finde die entsprechende Abfrage For Each con In ThisWorkbook.Connections If con.Name = abfrageName Then ' Überprüfe, ob die Abfrage gerade aktualisiert wird abfrageAktiv = con.OLEDBConnection.Refreshing ' Status überprüfen und entsprechende Aktion durchführen If abfrageAktiv Then Else Exit Do End If Exit For End If Next con Loop Call WerteBerechnenUndSpaltenAusblenden End Sub

Sub AbfrageStatusAbru1fen() Dim con As WorkbookConnection Dim abfrageName As String Dim abfrageAktiv As Boolean Dim abfrageBackground As Boolean ' Setze den Namen deiner Abfrage abfrageName = "Abfrage - MonateZusammengeführt" ' Iteriere durch die Verbindungen und finde die entsprechende Abfrage For Each con In ThisWorkbook.Connections If con.Name = abfrageName Then abfrageBackground = con.OLEDBConnection.BackgroundQuery con.OLEDBConnection.BackgroundQuery = False con.Refresh con.OLEDBConnection.BackgroundQuery = abfrageBackground End If Next con Call WerteBerechnenUndSpaltenAusblenden End Sub

Hallo!

Also grundsätzlich gehst du mit der For-Schleife durch alle Verbindungen die es gibt und wenn die Verbindung zu deiner Variable abfrageName passt, geht es weiter im Code.
Mit abfrageBackground = con.OLEDBConnection.BackgroundQuery fragst du ab, wie bei deiner Abfrage die "Hintergrunddaten zulassen" eingestellt (Ein/Aus) sind und speicherst es in die Variable abfrageBackground.
Danach werden die Hintergrunddaten deaktiviert, um das bekannte Problem der Aktualisierung zu umgehen.
Jetzt wird die Abfrage aktualisiert mit con.Refresh.
Zum Schluss werden die "Hintergrunddaten zulassen" wieder auf deinen von dir definierten Wert gesetzt (Ein/Aus).

Hoffe du kennst dich jetzt aus 😉.

Beste Grüße

Beliebteste Forumthreads (12 Monate)

Power Querry aktualisierung in VBA Abfragen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Power Querry aktualisierung in VBA Abfragen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread