Sub Druckbereich_Februar()
ActiveSheet.PageSetup.PrintArea = monatsbereich(2)
ActiveSheet.PrintPreview
End Sub
Function monatsbereich(monat&) As String
Dim ZeilenNr1Febr, ZeilenNrMonatsEndeFebr, datum As Date, rng As Range
datum = DateSerial(Year(Date), monat, 1)
With Worksheets("Tabelle1")
Set rng = .Columns(1)
End With
ZeilenNr1Febr = Application.Match(CDbl(datum), rng, 0)
If IsNumeric(ZeilenNr1Febr) Then
ZeilenNrMonatsEndeFebr = Application.Match(WorksheetFunction.EoMonth(datum, 0), rng, 0)
If IsNumeric(ZeilenNrMonatsEndeFebr) Then
monatsbereich = "A" & ZeilenNr1Febr & ":G" & ZeilenNrMonatsEndeFebr
Else
monatsbereich = ""
End If
Else
monatsbereich = ""
End If
End Function