Gruppe
Feature
Problem
Bei der Eingabe einer 7 in Spalte A sollen die sieben Zellen rechts der Eingabezelle mit der Hintergrundfarbe gelb belegt werden.
StandardModule: basMain
Sub MehrSeitenDruck()
Dim rngSource As Range, rngTarget As Range
Dim iPage As Integer
Set rngSource = Worksheets("Quellblatt").Range("A1").CurrentRegion
Set rngTarget = Range("A2:F59")
For iPage = 1 To rngSource.Rows.Count Step 58
rngTarget.ClearContents
rngTarget.Value = rngSource.Range( _
rngSource.Cells(iPage, 1), _
rngSource.Cells(iPage + 58 - 1, 6)).Value
ActiveSheet.PrintPreview
Next iPage
rngTarget.ClearContents
End Sub