Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

PrintArea

PrintArea
25.01.2006 17:03:42
Ernst
Hallo Forum
Ich möchte in einer Tabelle folgendes machen:
Wenn in der Zelle A35 der Tabelle1 ein Wert steht (Zahl oder Text), so soll die Tabelle1 von A1:G45 gedruckt werden, wenn in der Zelle A50 ein Wert steht, dann soll die Tabelle von A1:G80 gedruckt werden, sonst A1:G30.
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$30"
Für eine Antwort bin ich dankbar.
mfg
Ernst Dunkel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PrintArea
25.01.2006 17:06:42
Dr.
Hi,
hilft Dir das weiter?
ActiveSheet.PageSetup.PrintArea = UsedRange.Address
AW: PrintArea
25.01.2006 17:12:47
Ernst
Hallo
nein, das reicht mir nicht, da es eine case Funktion ist.
Könntest du mir den ganzen Code angeben?
mfg
Ernst Dunkel
PrintArea
25.01.2006 18:11:30
Ernst
Frage ist noch offen.
AW: PrintArea
25.01.2006 18:34:14
Ramses
Hallo
wo liegt das Problem wenn du eine Case-Funktion verwendest.
Das wird doch in der VBA-Hilfe gut beschrieben
Select Case Range("A35").Value
Case ""
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$80"
Case else
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$30"
End Select
Gruss Rainer
Kombiniere Geist und Google,... denn Wissen ist geil ;-)
Anzeige
Danke
25.01.2006 20:33:58
Ernst
Hallo Rainer
vielen Dank für deine Hilfe.
mfg
Ernst Dunkel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige