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