ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden
Private Sub an:
Private Sub CommandButton01_Click()
Workbooks.Open Filename:=ArbeitsPfad & "Geräte\XXX\ABC 21.xls", ReadOnly:=True
End Sub
funktioniert auch einwandfrei.
Nun nmöchte ich das Programm vereinfachen...
Der CommandButton01 hat die "Caption" "ABC 21".
Beim klicken soll die entsprechende Excel-Datei "ABC 21.xls" geöffnet werden.
Ist es möglich, ein Programm für alle CommandButton's zu schreiben in denen die Caption des Buttons als Dateinamen verwendet wird?
Mir würde es auch schon reichen, wenn ich für jeden Button (01 - 32) einen eigenen
Private Sub einrichten muss aber nicht für jeden Sub den Pfad anpassen muss...
Es geht darum, dass der Anwender die Caption der Knöpfe ändern können soll ohne die Programmierung zu bearbeiten. So muss ich einfach sagen, nenne die Excel-Datei genau so wie die Caption des Buttons...
Vielen Dank und Grüße
Flo