Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich verschieben

Forumthread: Druckbereich verschieben

Druckbereich verschieben
20.03.2003 09:23:47
Christian
Hallo,
hab' folgendes Problem:
Der Druckbereich liegt standardmäßig bei A9:G60. Durch Eingabe einer Zahl in Zelle F1 soll über ein Makro der Druckbereich um die entsprechende Anzahl Zeilen verschoben und der neue Bereich ausgedruckt werden.

Kann mir da jemand helfen?

Gruß
Christian

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Druckbereich verschieben
20.03.2003 09:53:33
Kobra

Hi Christian

folgenden Code in die Tabelle Eintrgen und fertig.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 6 Then
anfang = 9 + Target.Value
ende = 60 + Target.Value
ThisWorkbook.ActiveSheet.Range(Cells(anfang, 1), Cells(ende, 7)).Select
Selection.PrintOut Copies:=1, Collate:=True
End If
End Sub


Gruss
Markus

Anzeige
Re: Druckbereich verschieben
20.03.2003 11:48:30
Christian

Hallo,
danke für die schnelle Antwort.
Aber wie kann ich es anstellen, wenn ich aus der Tabelle raus per Button den Druck des Bereiches starten möchte. Da muss ich ja den Button mit dem Makro verbinden. Wie kann man da vorgehen?

Gruß
Christian

Re: Druckbereich verschieben
20.03.2003 15:31:41
Kobra

Hi,

soll der Bereich erst festgelegt werden wenn Du den Button drückst, oder gleich nach der Eingabe?

Für den Fall gleich nach der Eingabe, einfach den Bereich

ThisWorkbook.ActiveSheet.Range(Cells(anfang, 1), Cells(ende, 7)).Select
Selection.PrintOut Copies:=1, Collate:=True

In das CommandButtonKlick- Makro einfügen

Gruss
Markus


Anzeige
Re: Druckbereich verschieben
20.03.2003 15:34:06
Christian

Hi,
hab´s jetzt zu meiner Zufriedenheit gelöst. Ihr habt mir super weitergeholfen
Danke euch.

Gruß
Christian

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige