dynamisches Formular

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zettel_drucken() Dim lRow As Long Dim wsMA As Worksheet Set wsMA = Sheets("Mitarbeiter") Application.ScreenUpdating = False For lRow = 4 To wsMA.Cells(Rows.Count, 1).End(xlUp) With Sheets("A-Zeit SV1") .Cells(5, 3) = wsMA.Cells(lRow, 1) & ", " & wsMA.Cells(lRow, 2) .Cells(4, 8) = wsMA.Cells(lRow, 4) .Cells(6, 6) = wsMA.Cells(lRow, 13) .Cells(6, 8) = wsMA.Cells(lRow, 14) .PrintOut End With Next lRow End Sub

Hallo Peter,
danke für Deine schnelle Hilfe.
Die Arbeitsmappe, die ich hochgeladen hatte, ist ein Auszug aus einem Controllingprojekt, mit deutlich mehr Inhalten.
So verwalte ich damit auch den Urlaub unserer Mitarbeiter.
So, wie das Formblatt SV1, bezieht sich auch Urlaub auf die Tabelle Feiertage.
Ich finde nicht heraus, wie ich Deine Feiertagstabelle auf Urlaub anwenden kann.
Im Kopf von Mitarbeiter bist Du sehr großzügig mit dem Platz vorgegangen.
Da sollen nachher noch Buttons für den Ausdruck von Urlaubsanträgen, Arbeitsverträgen, usw. untergebracht werden..
Letztendlich möchte ich das ganze sowieso mit Eingabemasken gestalten. Hier muss ich mich aber noch reinfummeln.
Aber erst einmal soll die Basis stehen und fehlerfrei funktionieren.
Ich habe mal die Mappe, mit Urlaub, neu hochgeladen: https://www.herber.de/bbs/user/147367.xlsm
PS: Ich habe Excel vor 30 Jahren gelernt. Kaum angewandt und arbeite mich jetzt wieder neu rein...

Hallo Christian,
da du keinerlei Informationen über den fehlenden Rest der Mappe mitgegeben hattest, hatte ich mich da in der obersten Zeile ausgebreitet...
Die Information, für welchen Monat/Jahr die "A-Zeit SV1"-Blätter berechnet werden sollen kannst du natürlich hinschreiben wo du willst!
Einzig zu beachten ist in meiner Sub im VBA-Code die Zeile 17:


DateAZeit = Range("N1") 'Datum für die Erzeugung der A-Zeit-Blätter

In Zelle N1 (im Blatt Mitarbeiter) steht der 1. des Monat/Jahr's als Datum (siehe Formel dort). Den Bezug im VBA-Code musst du dann ersetzen durch den Ort wo du es hinschreiben willst.
Ich habe dir im Blatt Urlaub in Zelle G4 exemplarisch die Formel hingeschrieben, um sich auf mein Blatt Feiertage zu beziehen.
Man muss daran denken, dass dort in Zelle I8 das korrekte Jahr eingetragen sein muss!
Meine sub AZeit_Blaetter_erstellen() macht das jedes Mal, da hier aber kein Makro ausgeführt wird, musst du darauf achten.
Man könnte in Zelle Feiertage!I8 aber auch anstatt der Jahreszahl einen Verweis auf die Zelle in das Blatt schreiben, in der du das Jahr für alle Berechnungen definierst. Im Moment also: "=Mitarbeiter!K1".
OK, viel Spaß damit...
Peter
https://www.herber.de/bbs/user/147386.xlsm
P.S.: Wie gesagt: In Zelle Feiertage!D38 solltest du noch die Nummer deines Bundeslands einsetzen...

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread