ich habe folgendes Problem:
Ich date über ein Makro ( welches auch funktioniert ) beim öffnen einer Arbeitsmappe die Wechselkurse von verschiedenen Ländern in einem Arbeitsblatt meiner Exceldatei ab.
Das Makro dazu lautet:
Sub Wechselkurse_Europa()
Sheets("Waehrungen Europa").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
Jetzt das Problem:
Wenn ich keine Internetverbindung habe und ich die Datei öffne, dann kommt es zu einer Fehlermeldung.
Es sollte jedoch folgendes passieren:
Sollte es keine Internetverbindung geben und ich die Datei geöffnet wird, dann sollte folgende Medlung erscheinen:
"Es konnte keine Verbindung zum Internet hergestellt werden und die Wechselkurse wurden nicht aktualisiert. Bitte ggf. die Kurse manuell anpassen"
Nach dem Bestätigen der Meldung sollte das Tabellenblatt "Deutschland" aufgerufen werden und ein normales Arbeiten möglich sein.
Es wäre auch noch schön, das wenn es doch eine Internetverbindung gibt nach dem update der Kurse die Meldung erscheint:
"Die Wechselkurse wurden soeben automatisch upgedated. Bitte ggf. die Kurse manuell anpassen"
Nach dem Bestätigen der Meldung sollte das Tabellenblatt "Deutschland" aufgerufen werden und ein normales Arbeiten möglich sein.
Vielen Dank für eure Hilfe,
Uwe