Dateien aktualisieren per Button (Makro)
10.07.2018 14:47:03
CL
ich habe mittlerweile so einige aufeinander aufbauende Excel-Dateien die ich immer mühselig nacheinander öffne, speichere und dann beende.
Endlich kam ich nun auf die Idee das mit einem Makro per Button-Klick zu lösen :-D.
Ich möchte die Reihenfolge festlegen und am Besten beim Öffnen der Arbeitsmappe, in der ich den Button integrieren will, ein Formular einblenden oder eine MsgBox.
Ich habe etwas recherchiert und habe bei http://www.hajo-excel.de/ gesehen, dass man MsgBoxen für eine bestimmte Zeit einblenden lassen kann, ggf. wäre das eine Lösung.
Meine konkrete Frage zu dieser Thematik:
Gibt es eine eleganter Lösung als nachfolgende?
Private Sub CommandButton1_Click()
Dim Mappe1 As String, Mappe2 As String, Mappe3 As String ...
Mappe1 = "Pfad"
Mappe2 = "Pfad"
Mappe3 = "Pfad"
Workbooks.Open Filename:=Mappe1, UpdateLinks:=3
ActiveWorkbook.Close Save Changes=True
Workbooks.Open Filename:=Mappe2, UpdateLinks:=3
ActiveWorkbook.Close Save Changes=True
Workbooks.Open Filename:=Mappe3, UpdateLinks:=3
ActiveWorkbook.Close Save Changes=True
End Sub
Wie kann ich das in ein UserForm oder eine MsgBox beim Start der entsprechenden Datei mit diesem Aktions-Button einblenden - mit einem "OK-" und "Abbrechen-Button"? Ein kleines nettes Extra wäre noch das Feature "Wenn keine Reaktion vom User erfolgt, soll das Fenster nach einigen (z.B. 3) Sekunden wieder verschwinden".
Wäre super hilfreich wenn mir jemand hier auf die Sprünge helfen könnte :-).
Gruß,
Chris