Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Tabewle1").Range("a1") = Worksheets("Tabewle1").Range("a1") + 1
End Sub
Sub DRUCKEN()
' DRUCKEN Makro
' Makro am 23.08.2011 von Walter aufgezeichnet
' Range("E4:E20").Select nötig?
With ActiveSheet
.PageSetup.PrintArea = "$E$4:$E$20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
.Cells(3, 8) = .Cells(3, 8) + 1
End With
' Range("I14").Select nötig?
End Sub
Sub zaehler()
' zaehler Makro
' Makro am 23.08.2011 von Walter aufgezeichnet
ActiveSheet.Cells(3, 8) = 1 ' nicht "1" - du willst die Zahl 1, keinen Text
' Range("H5").Select nötig?
End Sub