ich habe in einer Datei mehrere Tabellen mit QueryTables.
Nach der Aktualisierung müssen noch ein paar Formeln automatisch ausgefüllt werden.
Unten stehender 'Code' funktioniert einwandfrei, wenn ich im Einzelschritt durchgehe.
Führe ich aber den gesamten Code aus, werden die Formeln bereits nach Aktualisierung des 1. Querys
automatisch ausgefüllt, und erst anschließend werden die restlichen Querys aktualisiert.
Natürlich könnte ich die Tabellenblätter einzeln aufrufen und abarbeiten, aber es müsste eigentlich doch auch so funktionieren.
Was muss ich ändern?
Danke im voraus!
Zico
Sub QueryTables_aktualisieren()
'Anmeldedaten aus Sheet Übersicht holen
Sheets("Übersicht").Select
'User ,Passwort und Datenbank übernehmen
User = [b1]
PW = [b2]
DB = [b3]
' ODBC Connection herstellen
ODBC = "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=" & User & ";Pwd=" & PW & ";SERVER=" & _
_
DB & ";"
' Tabellen aktualisieren
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name "Übersicht" Then
If Blatt.Name "Bestandsziel" Then
On Error Resume Next
Blatt.QueryTables.Item(1).Connection = ODBC
Blatt.QueryTables.Item(1).Refresh
'Bei mehreren Abfragen auf einem Tabellenblatt aktivieren
Blatt.QueryTables.Item(2).Connection = ODBC
Blatt.QueryTables.Item(2).Refresh
On Error GoTo 0
End If
End If
Next Blatt
Sheets("Lager700").Select
Range("B3:E3").Select
Selection.AutoFill Destination:=Range("B3:E35"), Type:=xlFillDefault
Range("B3:E35").Select
Range("B3").Select
Sheets("Übersicht").Select
End Sub