Tagesprotokoll ausfüllen
21.02.2022 17:48:52
Roland
Ich möchte ein Arbeitsblatt (Tagesprotokoll) mit mit den aktuellen Tagesdaten ausfüllen. Dabei sollen die Felder im Tagesprotokoll wie folgt ausgefüllt werden.
C4 aus Tabelle1 A4:xx
Q4 aus Tabelle1 B4:xx
F4 aus Tabelle1 D4:xx
D7 aus Tabelle1 C4:xx
Nachdem alle Zellen ausgefüllt wurden, soll das Tagesprotokoll ausgedruckt werden und anschließend das Tagesprotokoll mit den Nächsten Daten befüllt werden und wieder ausgedruckt werden. Dies soll solange ablaufen, bis alle Personen ein ausgedrucktes Tagesprotokoll haben.
Ich habe folgendes im Internet gefunden:
Sub Drucken()
Dim Rng As Range, Zelle, TB
Set Rng = Sheets("Tabelle1").Range("A4:A20") 'anpassen
Set TB = Sheets("Tagesprotokoll")
For Each Zelle In Rng.SpecialCells(xlCellTypeConstants, 3)
TB.Range("c4") = Zelle.Value
TB.PrintOut
Next
End Sub
Mit nur einer Zelle funktioniert es wunderbar. Leider reichen meine VBA Kenntnisse nicht aus dies so zu erweitern, dass alle gewünschten Zellen ausgefüllt werden und das Tagesprotokoll ausgedruckt wird.Die Anzahl der Datenätze ist täglich anders, sie bewegen sich im Rahmen von 15 bis 40.
Ich sage danke im Voraus für Eure Hilfe.
https://www.herber.de/bbs/user/151276.xlsm
Grüße
Roland