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
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