in Tabelle 3 steht:
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then Sheets("Tabelle2").PrintPreview Else MsgBox ("Kein Blatt ausgewählt!")
End Sub
in DieseArbeitsmappe steht:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Tabelle3").CommandButton1.Value = True Then MsgBox ("Hallo") Else MsgBox ("Geht nicht!")
End Sub
Auch wenn ich auf den CommandButton Klicke kommt als MessageBox "Geht nicht", obwohl doch True und somit "Hallo" erscheinen müßte.
Wer kann mir mal auf die Sprünge helfen, ist wohl doch schon etwas spät!
Danke im voraus!