Bereich markieren u. drucken m. Selection.PrintOut

Sub Plausi()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim vSheet As Worksheet
Dim x As Variant
Dim zNr As Long
Dim nString As String
Dim dstring As Date
Dim drucken As Range
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
If aSheet.Index = 1 Then Exit Sub
'Set vSheet = aBook.Sheets(aSheet.Index - 1)
dstring = Sheets("Parameter").Range("navdate")
nString = Format(Month(dstring), "00") & Format(Day(dstring), "00")
Set vSheet = Sheets(nString)
'beginnend ab Zelle C5 im aktiven Sheet
With aSheet
zNr = 5
Do While Cells(zNr, 3) <> ""
.Cells(zNr, 26) = Application.SumIf(vSheet.Range("C:C"), .Range("C" & zNr), vSheet.Range("R:R"))
zNr = zNr + 1
Loop
End With
With aSheet
zNr = 5
Do While .Cells(zNr, 3) <> ""
If IsNumeric(.Cells(zNr, 18)) And .Cells(zNr, 18) <> 0 Then
.Cells(zNr, 27) = 1 - .Cells(zNr, 26) / .Cells(zNr, 18)
Else
End If
zNr = zNr + 1
Loop
End With
'Sheet für Plausibilisierungszwecke ausdrucken
zNr = zNr + 4
With aSheet
drucken = Range(.Cells(1, 1), .Cells(zNr, 27))
Selection.PrintOut Copies:=1, Collate:=True
End With
End Sub