Druckbereich

Bild

Betrifft: Druckbereich von: martin
Geschrieben am: 17.02.2005 18:17:31

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

Bild


Betrifft: AW: Druckbereich von: andre
Geschrieben am: 17.02.2005 18:33:13

Hallo Martin,
bist Du Dir sicher dass Du das willst was Du da gefragt hast?
statt
Do Until Cells(intRow, 6) = 0
dann
Do Until Cells(intRow, 6) = 1
Grüße, Andre


Bild


Betrifft: AW: Druckbereich von: martin
Geschrieben am: 17.02.2005 18:47:05

hallo andre,
ja, ich übermittel den eintrag aus einem anderen tabellenblatt mit z.b." =Datenbank!B6 " also steht dann in der aufnehmenden zelle " 0 ".
ich hoffe, ich habe das richtig beschrieben.

gruss/martin


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Druckbereich"