Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: SQL Tabellen werden nicht Aktualisiert

SQL Tabellen werden nicht Aktualisiert
10.09.2020 14:02:01
Chupacabra
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 :)
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SQL Tabellen werden nicht Aktualisiert
10.09.2020 14:40:25
Yal
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.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige