wie kann ich den druchbereich über eine schaltfläche so festlegen, dass er den bereich des aktiven tabellenblattes nur bis zur ersten null in spalte "g" druckt?
im vorraus danke!
gruß
martin
wie kann ich den druchbereich über eine schaltfläche so festlegen, dass er den bereich des aktiven tabellenblattes nur bis zur ersten null in spalte "g" druckt?
im vorraus danke!
gruß
martin
so:
ActiveSheet.PageSetup.PrintArea = "$A$1:$g$" & Range("G1:G1000").Find("0").Row
Bereich G1:g1000 eventuell noch ausweiten.
Gruß Boris
folgenden code habe ich einer schaltfläche zugewiesen:
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & Range _
("G1:G1000").Find("0").Row
End Sub
wenn ich nun drucken möchte kommt folgender laufzeitfehler 1004
die find-eigenschaft des range-objektes kann nicht zugeordnet werden. was ist falsch?
martin
setz mal die Egenschaft des Buttons
TakeFocusonClick auf False.
Vielleicht liegt es daran. Bin leider kein VBA-Experte.
Gruß Boris
habe ich gemacht und es funktioniert.
jetzt habe ich ein anderes problem. wenn in spalte "g" eine zahl mit einer null steht z.b. 302 legt er den druckbereich bis dorthin fest, er soll aber den druckbereich festlegen bis nur eine null steht.
vielleicht kannst du mir helfen?
martin
Vielleicht geht´s auch einfacher, aber es funzt.
Gruß Boris
dankeschön, es funktioniert prima, aber er nimmt die erste null mit, er soll den druckbereich bis zur ersten null festlegen.
weißt du eine lösung?
gruß
martin
versuchs mal mit
ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
"=INDIRECT(CONCATENATE(""A1:G"",MATCH(0,Tabelle1!C7,0)))"
oder anstatt über den Button bei Namen/Festlegen Druckbereich die Formel:
=INDIREKT(VERKETTEN("A1:G";VERGLEICH(0;Tabelle1!$G:$G;0)))
eingeben.
wish YOU no panic
Panicman