oha, schwerer Tobak für mich...
29.09.2008 11:31:26
reinhardt
Mit diesem bestimmt guten Tip weiß ich nicht recht etwas anzufangen.
Grundsätzlich erhalte ich erst einmal eine Fehlermeldung: TYPEN unverträglich! (Damit meint Excel meistens mich!)
Was muß ich machen mit: ?
ActiveSheet.Cells(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row, 4).Select
Gruß Reinhardt
Sub Einzeldruck()
Dim a As Integer
a = Sheets(2).Shapes("Optionsfeld 31").TopLeftCell.Row 'Name: Einzeldruck
Range("D" & a - 2).Select
n = Range("D" & a - 2).Value
Range(n).Select
Dim iClick As Integer
iClick = MsgBox(prompt:="Drucken ?", Buttons:=vbYesNo)
If iClick = vbYes Then
Selection.PrintOut Copies:=1, Collate:=True
ElseIf iClick = vbNo Then
End If
End Sub
Anzeige