CommandButton
13.01.2014 17:56:59
Werner
ich habe eine UserForm in den mehrere CommandButtons sind. Der Name der CommandButtons kann sich immer mal ändern.
Gibt es eine Möglichkeit den Namen für die CommandButtons aus einer Zelle herzuleiten und wenn ja wie müßte das Makro aussehen.
Mein biheriges Makro sieht folgendermaßen aus.
Private Sub Drucken1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
UserForm1.Hide
Caption ("A11")
Sheets("Tabelle1").Range("A8:AG35").PrintOut Copies:=1, Collate:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Viele Grüße
Werner