Allgemeiner code für mehrer Commandbuttons
13.11.2008 07:59:00
Christoph
Wie kann ich für mehrere Commandbuttons, die alle in einer Frame sind, allgemein ansprechen?
Konkret:
Dieser Code funktioniert jetzt nur für die Buttons A und B und analog für die restlichen 28.
Ich möchte aber, dass dieser Code für Alle Buttons in dem Frame 'erwKartei' gilt'
Es wäre möglich, für jeden Button diese Zeile zu schreiben, aber nicht mein Ziel.
Vielleicht gibt es eine elegantere Lösung mit 'Controls', für die ich aber zu blöd bin.
Hintergrund ist die reduzierung von Codezeilen
Private Sub CommandButton201_Click()
Workbooks.Open Filename:=Application.Path & "\" & UserForm4.CommandButton201.Caption & ". _
xls"
End Sub
Private Sub CommandButton204_Click()
Workbooks.Open Filename:=Application.Path & "\" & UserForm4.CommandButton204.Caption & ". _
xls"
End Sub
Hab dazu eine Beispieldatei geuploadet:
https://www.herber.de/bbs/user/56722.xls
Anzeige