Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Tabellenblatt refreshen funktioniert nicht...





Frage

Hallo zusammen, ich habe folgendes Problem: Ich will ein Tabellenblatt aktualisieren, bzw den import von Daten aus einer Access oder Exceldatei Eigentlich müsste es doch so gehen: [code]Sub aktualisieren() Sheets(1).Select Selection.QueryTables.Refresh BackgroundQuery:= False [/code] oder [code] Sheets(1).QueryTables.Refresh BackgroundQuery:= False End Sub [/code] beides ruft aber den debugger hervor... was mache ich falsch? Habe es auch mit dem Recorder probiert aber es will nicht klappe... Danke im Voraus für eure Hilfe Hansen

Antwort 1 von Yossarian

Du mußt Excel schon genau sagen, WELCHE Query du refreshen willst...

Beispiel:

Sub Query_Nr_1_auf_Blatt_Nr_1_aktualisieren()
   Sheets(1).QueryTables(1).Refresh
End Sub

Sub Alle_Queries_auf_aktuellem_Blatt_aktualisieren()
Dim qt As QueryTable
For Each qt In ActiveSheet.QueryTables
qt.Refresh
Next
End Sub


Yossarian

Antwort 2 von Yossarian

Nachtrag...

Oder gleich den "Rundumschlag" für die ganze Arbeitsmappe:

ActiveWorkbook.RefreshAll


Aktualisiert alle externen Datenbereiche und PivotTable-Berichte in der aktuellen Arbeitsmappe
(aus: Excel-Hilfe)

Yossarian

Antwort 3 von Yossarian

Was los? Sprache verschlagen, weil die Antwort so schnell kam? ;o)

Yossarian

Antwort 4 von coros

Hi Yossarian,

bist Du neu hier? Ansonsten müsstest Du wissen, das man hier nur zu 90% eine Rückmeldung in Form einer Danksagung erhält. Wenn eine sofortige Rückmeldung kommt, dann nur wenn noch Nachfragen sind.

Ist nun mal leider so.

MfG,
Oliver
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.

Antwort 5 von Yossarian

Neee, bin nicht neu hier... bloß ohne Cookie unterwegs ;o)

Und so richtig ernst gemeint war mein "Dank-Verlangen" auch nicht. Eher so aus Langeweile gepostet.
Zitat:
...das man hier nur zu 90% eine Rückmeldung...

Naja, 90% wären aber doch recht angenehm! Oder meinst du es eher andersrum? ;o)

Yossarian