An Beverly !! ?
29.09.2008 14:56:00
reinhardt
Mein Wunsch: Abhängig von der Zellposition mit einer Checkbox eine
Sub für Einzeldruck aufrufen.
Die Zelladresse steht jeweils hier: Range("D" & a - 2)
Mit der u.a.
Sub bekomme ich bei der Checkbox eine Fehlermeldung: TYPEN unverträglich WARUM?
Ich muß die Checkbox statt eines Optionsbuttons aus der Formularleiste nehmen, da ich im _
Tabellenblatt Zeilen ausblende, und somit die Optionsbuttons nicht verschwinden.
Gruß Reinhardt.
Sub Einzeldruck()
Dim strAdresse As String
Dim iClick As Integer
strAdresse = ActiveSheet.Cells(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 2, _
4) _
.Value
iClick = MsgBox(prompt:="Drucken ?", Buttons:=vbYesNo)
If iClick = vbYes Then
ActiveSheet.Range(strAdresse).PrintOut Copies:=1, Collate:=True
ElseIf iClick = vbNo Then
End If
End Sub