Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
140to144
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
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage Arbeitsblätter

Abfrage Arbeitsblätter
25.07.2002 13:04:56
Hepitus
Ich habe 60 Arbeitsblätter in einer Datei. Über eine Abfrage möchte festlegen, das das Arbeitsblatt 1 bis x ausgedruckt werden soll. Dabei soll x abgefragt werden, bis zu welchem Arbeitsblatt automatisch gedruckt werden soll.

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

Betreff
Datum
Anwender
Anzeige
Re: Abfrage Arbeitsblätter
25.07.2002 13:11:34
Günter
Griasch di

versuchs mal so

Dim Tabelle(60) as variant

x = Inputbox("Wieviele Datenblätter")

For i = 1 to x
Sheets(Tabelle(x)).select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
next

Mfg Gü

Re: Abfrage Arbeitsblätter
25.07.2002 13:20:19
Dieter
Hallo Hepitus,

Probier es mal mit Sheets.Count.

Gruß
Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige