Excel Template mit Tabellendaten füllen und drucken

[Dogma83]

Hallo,
Ich brauche Hilfe.
Habe eine Exceldatei mit einer grossen Datenliste, welche ich Zeile für Zeile in ein Template (anderes Registerblatt) kopieren will und dann für jede Zeile einmal das gefüllte Template drücken möchte.
Ich möchte angeben von welcher Zeile bis z welche Zeile dieser Seriendruck gehen soll.
Bitte helft mir.
Was muss ich tun?
Danke.

[RPP63]

Moin!

• Schleife über die Zeilen
  
• Leeren der entsprechenden Zellen (.ClearContents)
  
• Übergabe an die entsprechenden Zellen
  
• Tabelle7.PrintOut
  

Die Mappe wird zwingend notwendig, wenn Du mit obigen Infos nichts anfangen kannst!

Gruß Ralf

[Dogma83]

Hallo,

hier anbei das Excel-Dokument...

Aus der Datentabelle will ich wie gesagt Zeile für Zeile in das Template überführen, und im Anschluss das Template ausdrucken.
Nach dem Drucken sollen dann im Template die Zellen wieder gelöscht werden und mit den Daten aus derr nächsten Zeile Datentabelle gefüllt werden und auch wieder gedruckt.

Ich möchte in hier angeben von welcher Zeile bis zu welcher Zeile dieses Makro durchlaufen soll.

Würdet ihr mir bitte den VBA Code hierzu schreiben, beispielhaft mit einem oder Zellen.

Die restlichen Zellbezüge stelle ich mir dann selber.

Danke im voraus!

Marco

[RPP63]

Moin!

Ich sehe keinerlei Zusammenhänge zwischen Datentabelle und Template!

Da ich davon ausgehe, dass eine Erklärung für Leute wie mich, die in der Materie nicht drinstehen, epische Ausmaße annehmen würde, werde ich Dir bei dem speziellen Problem nicht helfen wollen/können.

Dennoch zeige ich Dir an einem einfachen Beispiel, wie so etwas funktioniert.

Code in einem allgemeinen Modul:

Sub Formular_Druck()
Dim i&
With Tabelle1.ListObjects(1)
  For i = 1 To .ListRows.Count
    With .ListRows(i).Range
      Tabelle2.Range("PersNr") = .Cells(1)
      Tabelle2.Range("Name") = .Cells(2)
      Tabelle2.Range("Vorname") = .Cells(3)
      Tabelle2.Range("GebDat") = .Cells(4)
      Tabelle2.Range("LoremIpsum") = .Cells(5)
    End With
    Tabelle2.PrintPreview '.PrintOut für Ausdruck 
  Next
End With
Tabelle2.Columns(2).ClearContents
End Sub

Datei im Anhang

Gruß Ralf