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

Druckausgabe externer Arbeitsmappe

Druckausgabe externer Arbeitsmappe
11.01.2006 08:30:45
Hubert
Kann mir jemand helfen die Druckausgabe aus Excel zu automatisieren.
Beispiel im Anhang.
Vielen Dank im voraus.
Gruß Hubert Troendlin
https://www.herber.de/bbs/user/29919.xls

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckausgabe externer Arbeitsmappe
11.01.2006 09:44:19
Eugen
hi
also ohne öffnen geht das nicht
in etwa so
dim szstr as string
dim ntable as integer
szStr = Activeworkbook.sheets(1).Cells(19,4).Value ' Zelle d19 auslesen
workbooks.open("Arbeitsmappe 1.xls")
do while instr(szStr,",") grösser 0
ntable = val(mid(szstr,1,instr(szstr,",")-1))
szstr = mid(szStr,instr(szstr,",")+1)
sheets(ntable).printout
loop
ntable = val(szstr)
sheets(nTable).printout
activeworkbook.close
mfg
nicht getestet
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige