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

Druckbereich bestimmen

Forumthread: Druckbereich bestimmen

Druckbereich bestimmen
05.06.2005 08:58:37
carlo
hallo zusammen
ich hoffe es kann mir jemand ein tip geben wie ich folgendes
problem bewältigen kann!
in einer eingabemaske tabelle1 kann ich beliebig viele positionen
einfügen, diese werden an tabelle2 weitergegeben.
die tabelle2 soll wie folgt aussehen:
-wurde die tabelle1 bis und mit zeile 15 ausgefüllt, dann muss der
druckbereich von seite1 A1 bis O78 sein, keine weiteren Seiten.
-wurde die tabelle1 bis und mit zeile 30 ausgefüllt, dann muss der
druckbereich von seite1 A1 bis O78 und von seite2 A79 bis O156 sein,
keine weiteren Seiten.
zusätzlich muss die Funtion in Zelle M75 von geändert werden:
=M102+M110~f~ auf ~f~=SUMME(M16:M46)~f~
-wurde tabelle1 bis und mit zeile 45 ausgefüllt, dann muss der
druckbereich von seite1 A1 bis O78 von seite 2 A79 bis O156 und von seite3
A157 bis O237 sein, keine weiteren Seiten.
zusätzlich muss die Funtion in Zelle M75 von geändert werden:
~f~=M102+M110~f~ auf ~f~=SUMME(M16:M46)
usw.
danke und gruss
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich bestimmen
05.06.2005 12:46:12
Reinhard
Hi carlo,
ungetestet als Ansatz:

Sub tt()
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
ws1.Range("A1:O237").Copy Destination:=ws2.Range("A1:O237")
If ws1.Range("A45") <> "" Then
ws2.PageSetup.PrintArea = "$A$1:$O$237"
ws1.Range("M75").FormulaLocal = "=SUMME(M16:M46)"
ElseIf ws1.Range("A30") <> "" Then
ws2.PageSetup.PrintArea = "$A$1:$O$156"
ws1.Range("M75").FormulaLocal = "=SUMME(M16:M46)"
Else
ws2.PageSetup.PrintArea = "$A$1:$O$78"
ws1.Range("M75").FormulaLocal = "=M102+M110"
End If
ws2.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Set ws1 = Nothing
Set ws2 = Nothing
End Sub

Gruß
Reinhard
Anzeige
AW: Druckbereich bestimmen
05.06.2005 13:47:07
carlo
hallo reinhard
erstmals vielen dank für deine lösung. klappt bestens :-)
ich bin wirklich froh...
ich habe vielleicht nicht angedeutet, dass die funktionsänderung auf
tabelle 1 geschehen sollte, habe diese kleine korrektur selber hingekrigt!
nochmals merci und gruss
carlo
Anzeige
;

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