Mehrere Makros aufrufen über cmb_Button
26.07.2004 11:23:47
Torsten
in einer Datei habe ich ein WS ("Daten"), in dem Daten stehen, die in anderen WS ausgewertet werden. Da sich die Daten
regelmäßig ändern, habe in jedes dieser WS einen cmb_Button
(z.B.
Private Sub cmb_NL1_Click()),
über den ich die Daten aus dem WS ("Daten") aktualsieren kann. Nun möchte ich aber in der Lage sein,
aus einem Übersichtsblatt heraus alle WS zu aktualisieren.
Mein Ansatz:
Private Sub cmb_UpDateALL_Click()
Application.ScreenUpdating = False
If InputBox("Bitte Password angeben") = "maze" Then
Call Sub "cmb_NL1_Click"
On Error GoTo Errorhandler
Call Sub "cmb_NL2_Click"
usw......
Errorhandler
MsgBox ("Ein Fehler ist aufgetreten. Dateien wurden nicht aktualisiert")
Exit Sub
MsgBox ("Dateien wurden aktualisiert")
Application.ScreenUpdating = True
End Sub
Bricht aber mit Fehlermeldung ("Erwartet: Bezeichner") ab.
1. Frage: Wie lautet die richtige Syntax?
2. Frage: Wie kann ich erreichen, daß bei einem Fehler im UpDate in der entsprechenden MsgBox auch
der Name des WS erscheint, bei dem der Fehler aufgetreten ist?
Vielen Dank für Eure Hilfe im voraus.
Gruß
Torsten