Arbeitszeitformular automatisiert für x Mitarbeiter ausdrucken

[sithlord512589]

Hallo liebe Leute hier im Forum,

ich habe da mal ein Problem :20:

Folgende Situation:
Ich habe ein Excel-Formular (s.Anhang) mit welchem ich ein 14-tägiges Arbeitsstundenformular realisiert habe.

Ich suche nun nach einer Möglichkeit wie ich das Formular für jeden der x Mitarbeiter personalisiert ausdrucken kann.

Dabei habe ich im Reiter Einstellungen die Daten für die MA hinterlegt.
Meine Idee wäre, nun das Formular mit den MA-Daten per Schleife auszudrucken, 
wobei für jeden MA die Daten aus den Einstellungen in die entsprechenden Bereiche (z.B. per Index-Funktion) im Reiter Vorlage Ausdruck eingetragen werden.

Ich hoffe, ich konnte mein Problem verständlich darlegen

Vielen Dank schon mal im Voraus für eure Zeit

[sithlord512589]

Scheinbar gibt es keine einfache Lösung oder ich konnte mich nicht verständlich ausdrücken.


Möchte nicht drängeln oder unverschämt wirken, aber Irgendein Feedback wäre jedoch schön.

[Kuwer]

Hallo,

das wäre mein Vorschlag:

Füge im Ausdruckblatt eine neue Zeile 1 ein.
Ändere die Indexformeln so, dass die Zeile aus B1 geholt wird.

Vorlage Ausdruck

	A	B	C	D	E
1	Lfd.Nr.:	1
2	Name:	Muster01
3	Vorname:	Max01
4	Bezeichung:	AP
5	Arbeitszeit:	38,5  Wochenstunden
6	KW:	42 / 43
7
8	Tag	Datum	von	bis	Stunden gesamt

Formeln der Tabelle

Zelle Formel B2 =INDEX(Einstellungen!$B$2:$E$31;B1;1) B3 =INDEX(Einstellungen!$B$2:$E$31;B1;2) B4 =INDEX(Einstellungen!$B$2:$E$31;B1;3) B5 =INDEX(Einstellungen!$B$2:$E$31;B1;4)&"  Wochenstunden" B6 =KALENDERWOCHE(DATUM;11)&" / "&KALENDERWOCHE(DATUM+7;11)

Folgendes Makro erledigt den Seriendruck:

Sub AlleDrucken()

 Dim i As Long

 For i = 1 To Range("Nachname").Rows.Count

   Tabelle11.Range("B1").Value = i

   Tabelle11.PrintOut

 Next i

End Sub

Speichere die Datei mit Endung xlsm.

Gruß Uwe

[sithlord512589]

Vielen Dank für die Lösung. 

Werde morgen mal schauen, ob ich es auch fehlerfrei umgesetzt bekomme. :19:

Sehr cool, dass die Idee so elegant umzusetzen ist.

Genauso hatte ich gehofft, daß es funktioniert.

[sithlord512589]

Kann leider meinen letzten Beitrag nicht editieren...  :s

Nochmals vielen lieben Dank an Uwe für die Lösung meines Problems.
Und als Bonus habe ich noch etwas dazu gelernt.

Damit wäre meine Anfrage erledigt.