Office: Werte aus zweiter Datei beim Druck in Feld einer Tabelle einsetzen

Hallo zusammen
Ich habe, wie der Titel sagt, das Problem, dass ich eine Tabelle habe. Diese ist eine Vorlage und soll knapp 300-mal gedruckt werden. ABER: Beim Drucken soll, pro gedruckter Version, in ein einzelnes Feld – ähnlich einem Serienbrieffeld bei Word – ein anderer Wert gesetzt werden.
Die Werte sind in einer zweiten Exceldatei in Spalten vorhanden.

Weiß jemand von euch eine Möglichkeit, wie man das realisieren könnte? Was ich mir bereits überlegte war, die Vorlage in einer Worddatei einzubetten und mit einem Serienbrieffeld zu ergänzen – das klappte aber nicht.

Gibt es generell eine Möglichkeit, Daten erst beim Druck einzusetzen?

LG
Jafix

 

Hallo,

natürlich! Du darfst halt nicht den 0815-Weg über Menüband > Datei > Drucken gehen.
Du musst ein Makro schreiben, das vor jedem Seitendruck (je 1 Exemplar) die entsprechenden Zellen des Druckbereichs ändert und dann den Druck des Druckbereichs ausführt.

Im folgenden Beispiel befindet sich der Druckbereich in A1:G10 des aktiven Arbeitsblattes und die Zelle A1 wird vor jedem Druck mit der Zeichenkette "Exemplar mit der Zahl 1", ..., "Exemplar mit der Zahl 3" befüllt, da insgesamt 3 Drucke ausgeführt werden (wegen FOR-Schleife Zahl=1 to 3).

Code:

Sub Exemplare_AktivesBlatt_drucken()
   Dim Ws As Worksheet
   Dim Zahl As Long
  
   Set Ws = ActiveSheet

   Ws.PageSetup.PrintArea = "$A$1:$G$10"
  
   For Zahl = 1 To 3
      Ws.Range("A1").Value = "Exemplar mit der Zahl " & Zahl
      Ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
   Next Zahl
  
End Sub

 

Hallo Exl121150

vielen Dank für Deine Antwort. Das hat mir sehr geholfen und ich konnte das Problem so lösen.

LG
Jafix