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"