Arbeitsberichte Seriendruck in Excel?

Hallo zusammen,
ich habe nun schon seit längerem die Suchmaschinen bemüht um eine Lösung für mein Anliegen zu finden, leider habe ich bisher nicht das passende gefunden.
Bestimmt könnt Ihr mir weiterhelfen. :-)
Bei uns in der Arbeit hat jeder Mitarbeiter einen Tätigkeitsbericht für einen Monat, worin die Arbeitszeiten, etc. aufgeschrieben werden.
Die Vorlage von diesem Bericht, ist eine Excel Tabelle. Auf dem Bericht steht oben in Zelle "M2" der Name des Mitarbeiters. Der Name wurde bisher in der besagten Zelle durch eine Dropdown Liste (Datenprüfung = Blatt: Namensliste) ausgewählt und dann gedruckt. Mein Vorgänger hat das für über 40 Mitarbeiter einzeln gemacht.
Hier muss es doch eine Elegantere Lösung geben.
Natürlich unterstützt Word bereits den Seriendruck, da meine Tabelle aber auch ein Dynamischer Kalender ist fällt diese Variante leider raus.
Hier muss es doch bestimmt eine VBA Lösung geben um das zu Verwirklichen?
Würde mich über Hilfe freuen.
Vielen Dank
Gruß
Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Druck() Dim obj_wks_Namensliste As Worksheet Dim lng_zeile As Long Set obj_wks_Namensliste = Worksheets("Namensliste") lng_zeile = 1 ' Erster Name steht in Zeile 1 With obj_wks_Namensliste Do Until .Cells(lng_zeile, 1) = "" Worksheets("Tätigkeitsbericht").Range("M2") = .Cells(lng_zeile, 1) Worksheets("Tätigkeitsbericht").PrintOut lng_zeile = lng_zeile + 1 Loop End With MsgBox "Alle gedruckt" End Sub

Public Sub Druck() Dim i As Long With Worksheets("Namensliste") For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row Worksheets("Tätigkeitsbericht").Range("M2") = .Cells(i, "A") Worksheets("Tätigkeitsbericht").PrintPreview Next i End With MsgBox "Alles gedruckt." End Sub

Hi,
aus welchem Grund auch immer, in meinem Code steht:
Do Until .Cells(lng_zeile, 1) = ""
in Deiner Mappe:
Do Until .Cells(lng_zeile, 2) = ""
Du wolltest wahrscheinlich die Namensliste in Zeile 2 beginnen lassen, dafür musst Du aus
zeile = 1 --> zeile = 2 machen
Bei Cells steht der 1. Parameterwert für die Zeile und der zweite für die Spalte (A=1, B=2 usw.
Es muss bei Dir also so aussehen:

Public Sub Druck()
Dim obj_wks_Namensliste As Worksheet
Dim lng_zeile As Long
Set obj_wks_Namensliste = Worksheets("Namensliste")
lng_zeile = 2    ' Erster Name steht in Zeile 2
With obj_wks_Namensliste
Do Until .Cells(lng_zeile, 1) = ""
Worksheets("Tätigkeitsbericht").Range("M2") = .Cells(lng_zeile, 2)
Worksheets("Tätigkeitsbericht").PrintOut
lng_zeile = lng_zeile + 1
Loop
End With
MsgBox "Alle gedruckt"
End Sub

dann sollte es auch laufen.
Gruß
Regina

Public Sub Druck() Dim i As Long With Worksheets("Namensliste") For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If Not .Rows(i).Hidden Then Worksheets("Tätigkeitsbericht").Range("M2") = .Cells(i, "A") Worksheets("Tätigkeitsbericht").PrintPreview End If Next i End With MsgBox "Alles gedruckt." End Sub

Beliebteste Forumthreads (12 Monate)

Arbeitsberichte Seriendruck in Excel?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread