Hallo zusammen,
ich habe ein Problem und möchte mit einem Button einen dynamischen Bereich einer Tabelle drucken.
Die Tabelle A2:M50 soll in Abhängigkeit von zwei Variablen gedruckt werden.
Variable 1 befindet sich in Zelle x3 und hat z.B. den Wert 5
Variable 2 befindet sich in Zelle x4 und hat z.B. den Wert 15
Ich möchte jetzt, dass der Druckbereich in Abhängigkeit von Wert 1 und Wert 2 zwischen A5 und M15 gedruckt wird, wobei zusätzlich zum Druckbereich die Zeile 2 (A2:M2) bei allen Ausdrucken als Wiederholungszeile gedruckt wird.
Es wäre schön wenn mir da jemand weiterhelfen könnte.
Grüße Hans
Hi,
so:
Code:
Sub test()
Worksheets("Tabelle1").PageSetup.PrintArea = ("A" & Range("X3").Value & ":M" & Range("X4").Value)
Worksheets("TAbelle1").PrintPreview
End Sub
LG
Alexandra
Hallo, das kann man auch per Formel machen - aber bitte zum Abschluss der Formatierungen und Bearbeitung der Tabelle...!
[
attachment=23791]
Hallo Alexandra,
vielen Dank für deinen Vorschlag, ich habe aber noch ein Problem damit.
Ich habe in Zelle X3 die Zahl 5 stehen und in Zelle X4 die Zahl 15. Trotzdem wird immer die ganze Tabelle in der Druckvorschau angezeigt.
Hier mein Makro:
Sub Schaltfläche32_Klicken()
'
' Schaltfläche32_Klicken Makro
Worksheets("Wartungszeitpl.").PageSetup.PrintArea = ("A" & Range("x3").Value & ":M" & Range("x4").Value)
Worksheets("Wartungszeitpl.").PrintPreview
End Sub
Hast du noch eine Tipp oder eine Lösung?
LG
Hi,
bei mir funktioniert der Code. Lade deine Datei hoch dann gucken wir mal!
LG
Alexandra
Hallo,
hier die Datei. Ich möchte mit dem Button Drucken auf dem ersten Arbeitsblatt den Ausdruck eines bestimmten Bereiches auf dem zweiten Arbeitsblatt aktivieren.
Bei mir werden immer alle 13 Seiten als Druckbereich vorgeschlagen.
LG
Hans
Hallo, hast du mein Vorschlag mal ausprobiert..? Übrigens: Für W3 und W4 braucht's hier kein INDEX() - der VERGLEICH() reicht schon...
Hallo Jörg,
ich hab mir deinen Vorschlag angeschaut, ich möchte aber einen gesonderten Button für Drucken haben.
Habe das das nicht so ganz verstanden, wie das funktionieren soll, sorry.
Grüße
Hans
Hallo Hans,
das funktioniert deshalb nicht, weil wegen fehlender Referenzierung die Werte der Zellen X3 und X4 des gerade aktiven Tabellenblattes herangezogen werden.
Unabhängig davon ist es etwas übetrieben, den Druckbereich jedes Mal zu ändern, wenn man den Bereich auch direkt drucken könnte.
So funktioniert es bei mir:
Sub Schaltfläche35_Klicken()
With Worksheets("Wartungszeitpl.")
.Range("A" & .Range("x3").Value & ":M" & .Range("x4").Value).PrintPreview
End With
End Sub
Gruß Uwe