Externe Abfragen beim Start der Arbeitsmappe aktualisieren

[Dirk15]

Vielen Dank für die Aufnahme,

Ich hoffe das ich hier eine Lösung für mein Problem bekommen kann,

ich beziehe für 1 meiner Tabellenblätter (News) in meiner Arbeitsmappe Daten aus einem Online Excel Tabellenblatt
diese möchte ich beim Start meiner Arbeitsmappe aktualisieren,

Wenn ich das so mache geht es auch das er die Daten aktualisiert

Option Explicit

Private Sub Workbook_Open()

Sheets("Start").Select
ActiveWorkbook.RefreshAll

End Sub

Jetzt möchte ich aber direkt eine UserForm Starten beim Öffnen meiner Arbeitsmappe,nur dann aktualisiert der nicht sondern startet eigentlich sofort die User Form, und aktualisiert erst wenn
ich die User Form schließe,hat hier jemand eine Idee oder Lösung für mich ?

Option Explicit

Private Sub Workbook_Open()

Sheets("Start").Select
ActiveWorkbook.RefreshAll
Start.Show

End Sub

Vielen Dank vorab

[LuckyJoe]

Hi,

(ungeprüft) - vielleicht hilft ein zeitversetzter Start:

Code:

Call Application.OnTime(EarliestTime:=Now + TimeValue("00:00:10"), Procedure:="StartDerForm")

Dann müsstest du den Start deiner UserForm noch in eine Procedure packen.

[Dirk15]

Dann muss ich mich mal schlau machen über Prozeduren, 
damit ich weiß wie dann der Code komplett aussehen müsste.

Danke dir für den Tipp

[LuckyJoe]

Hi,

da du als Grundlage deiner Frage bereits Proceduren beschrieben hast, bin ich davon ausgegangen, dass dir das geläufig ist.
Füge in der VBA-Umgebung (da kommst du mit Alt-F11 hin) in einem neuen Modul ein:

Code:

Sub StarteUF()
    Start.Show
End Sub

und ändere deine Anfangsroutine wie folgt:

Code:

Private Sub Workbook_Open()

    Sheets("Start").Select
    ActiveWorkbook.RefreshAll
    Call Application.OnTime(EarliestTime:=Now + TimeValue("00:00:10"), Procedure:="StarteUF")

End Sub

[Dirk15]

Super Danke dir , das werde ich gleich mal testen.