Hallo Klaus,
1.)
Copies:=Workbooks("Central.xls").Worksheets("Tabelle1").Range("F22").Value
2.)
ThisWorkbook.Path
Viel Spaß,
Andreas
Hallo Klaus,
1.)
Copies:=Workbooks("Central.xls").Worksheets("Tabelle1").Range("F22").Value
2.)
ThisWorkbook.Path
Viel Spaß,
Andreas
Danke, Andreas!
Der Spaß kommt aber noch nicht so recht auf.
Beim Ablauf des Makros nach Änderung lt. Pkt. 1) kommt die Meldung "Laufzeitfehler '9' Index außerhalb des gültigen Bereiches".
Wat hat denn dat zu bedeuten?
Klaus
Ich habe bisher mittels Makro den Ausdruck von mehreren Tabellen jeweils in 4 Exemplaren vorgenommen.
Jetzt will ich aber in einer Tabelle central.xls im Feld f22 die Anzahl der Exemplare für einen kompletten Druck vorgeben.
1.Wie muß ich im bisherigen Modul die Option Copies:=4
ändern, damit aus der gennanten Tabelle der vorgegebene
Wert verwendet wird?
2.Wenn ich ich den ganzen Tabellenwust in ein anderes
Verzeichnis kopiere (um z.B. nächstes Jahr mit neuen
Werten das Tabellenwerk/Makro zu nutzen) müßte ich im
Makro die Pfadangaben aktualisieren (Tabellennamen
selbst bleiben unverändert). Wie läßt sich das
umgehen, will sagen: wie bringe ich dem Makro bei, daß
es die zu druckenden Tabellen immer im gleichen
Verzeichnis sucht?
Klaus