hallo experten,
mit der folgenden anweisung lege ich den druckbereich fest:
'*** Legt den Druckbereich fest ***
On Error Resume Next
Dim intRow As Integer
intRow = 1
Do Until Cells(intRow, 6) = 0
intRow = intRow + 1
Loop
Worksheets("JunHolzEinzel").PageSetup.PrintArea = _
ActiveSheet.Name & "!" & Range(Cells(1, 1), Cells(intRow - 1, 8)).Address
mein problem ist, er soll nicht die "zahl 0" sondern die "zahl 1" in spalte 6 nehmen.
kann mir einer von euch schreiben wie die anweisung geändert werden muß?
für eure hilfe wäre ich dankbar.
gruss/martin