Druckbereich auf Spalte A:B eingeschränken
Karsten
Tino hat mir mit folgendem Code weitergeholfen, für den ich mich noch hiermit bedanken möchte.
Nun würde ich gern den Druckbereich auf Spalte A:B eingeschränkt haben. Der Code sollte auch nur durchlaufen werden, wenn A3 oder A4 bestätigt worden sind.
Wenn mir jemand in dieser Sache behilflich sein könnte?...Danke.
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vRowVon, vRowBis
Dim Korrktur&
If Intersect(Range("A3:A4"), Target) Is Nothing Then Exit Sub
If IsDate(Range("A3")) And IsDate(Range("A4")) Then
vRowVon = Application.Match(Range("A3").Value2, Range("A7", Cells(Rows.Count, 1)), 0)
vRowBis = Application.Match(Range("A4").Value2, Range("A7", Cells(Rows.Count, 1)), 0)
End If
If IsNumeric(vRowVon) And IsNumeric(vRowBis) Then
With ActiveSheet
Korrktur& = 7 - .UsedRange.Cells(1, 1).Row
.PageSetup.PrintArea = _
.Range(.UsedRange.Rows(vRowVon + Korrktur), .UsedRange.Rows(vRowBis + Korrktur)). _
Address
End With
Else
ActiveSheet.PageSetup.PrintArea = ""
End If
End Sub