Microsoft Excel

Herbers Excel/VBA-Archiv

SQL Tabellen werden nicht Aktualisiert

Betrifft: SQL Tabellen werden nicht Aktualisiert von: Chupacabra
Geschrieben am: 10.09.2020 14:02:01

Hallo Zusammen,


ich habe mir ein kleines VBA-Programm geschrieben, welches Tabellen aus einer SQL Datenbank aktualisiert.

Hier der Code:




Sub sql_Aktualisieren()

'Blattschutz aufheben
ThisWorkbook.Sheets(Tabelle1.Name).Unprotect
ThisWorkbook.Sheets(Tabelle2.Name).Unprotect
ThisWorkbook.Sheets(Tabelle4.Name).Unprotect



ThisWorkbook.RefreshAll
ThisWorkbook.Worksheets("Maschinen und Werkstoffe").Range("h1:i1").Value = Now
ThisWorkbook.Worksheets("Dateiersteller").Range("f3").Value = Now
ThisWorkbook.Worksheets(Tabelle1.Name).Range("f3").Value = Now

'Blattschutz einschalten
ThisWorkbook.Sheets(Tabelle1.Name).Protect
ThisWorkbook.Sheets(Tabelle2.Name).Protect
ThisWorkbook.Sheets(Tabelle4.Name).Protect

End Sub


Ich starte das Programm über einen Button auf dem Excel Sheet.


Wenn ich das Programm mit einem klick auf den Button ausführe, dann kommen 3 Fehlermeldungen, dass der Blattschutz noch angeschaltet ist und die Tabellen werden NICHT aktualisiert.


Führe ich das Programm jedoch schrittweise im Haltemodus aus, dann kommt keine Fehlermeldung und die Tabellen werden aktualisiert.


Ich hoffe mir kann jemand weiterhelfen :)

Betrifft: AW: SQL Tabellen werden nicht Aktualisiert
von: Yal
Geschrieben am: 10.09.2020 14:40:25

Ansatt
ThisWorkbook.RefreshAll

For Each W in ThisWorkbook.Worksheets
    For Each Q in W.Queries
        Q.Refresh
    Next
Next Q

Wir gehen hier davon aus, dass es mehrere SQL-Abfragen pro Blatt geben kann.

Beiträge aus dem Excel-Forum zum Thema "SQL Tabellen werden nicht Aktualisiert"