Clever-Excel-Forum

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

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.

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

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.

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.