Urlaubstabelle in Monatsplan übertragen

Ich habe in einer Excel Datei ein Tabellenblatt "Start"
Auf dem sind Tabellen in denen Mitarbeiter ihre Urlaube eintragen. Die Tabelle besteht aus 3 Spalten (Name des Mitarbeiter, von, bis)
in den Zeilen steht unter dem namen 1. Termin, 2. Termin, ...
Die Mitarbeiter sollen ihren Urlaub in den Spalten von und bis das jeweilige Datum eintragen.
Die Planung erfolgt dann Quartalsweise. Hier sind die Tage des Monats untereinander aufgeführt und in den Spalten die Mitarbeiter. In den Spalten soll dann bei entsprechender Planung ein "U" stehen.
Bisher habe ich den Urlaub in Tabellenblätter übertragen, die mit Hilfe des Summenprodukts, die Tabellen auslesen und dann "U" eintragen.
Formel: =WENNFEHLER(WENN(MONAT(B4)=MONAT($B$4);WENN(SUMMENPRODUKT((UrlaubMarko[von]=$b4));"U";"");"")
WENNFEHLER ist vorgeschalten, um leere Felder (Februar für Nichtschaltjahr) leer zu lassen.
Die Urlaube werden nun in 4 Tabellenblätter Urlaub1 - 4 (je Quartal 1 Blatt) übertragen.
Die Planung soll aber in extra Tabelleblätter erfolgen (Quartal 1 - 4), die genau gleich (inkl. selbe Zellen für die gleichen Einträge bei den Urlaubstabellen) sind.
Ich möchte entweder mittels VBA die Urlaubstabellen auslesen und die Eintragen in Zellen mit U auf die Quaratle übertragen oder gleich die Urlaubstabellen mittels VBA auslesen und in ide Quartale an den entsprechenden Tagen ein "U" eintragen.
Wenn es klappt mit den Bilder, sieht man die Startseite mit den Tabellen und jeweils die Tabellenblätter Urlaub und Planung (Quartal).
Aus der Tabelle Urlaub soll ausgelesen werden, wo steht ein "U" und dann auf die Quartale (selbe Zelle) kopiert werden.
Alternativ, kann auch gleich per Makro die Urlaubstabelle auf der Startseite ausgelesen werden und das "U" beim Quartal eingetragen werden.
Ich kann die Fromel nicht in die Quartale eintragen, da Nichturlaubstage individuell eingetragen werden und somit die Formel weg wäre. Bei Änderungen nachträglich im Urlaubsplan, würde das dann ja nicht mehr funktionieren.
Auslöser des Makros sollen Einträge in die Tabelle sein.
Ein wenig kenne ich mit VBA schon aus, bin dabei aber noch mehr zu lernen. Dabei stehe ich aber gerade auf dem Schlauch. Habe auch noch kein passendes Beispiel gefunden, was ich eventuell anpassen könnte.
Startseite:
Userbild

Quartal

Urlaub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Urlaub_eintragen() Dim Z as Long 'Z = Zeile Dim S As Long 'S = Spalte --> Vorbereitung für Spaltenwechsel Application.Screenupdating = False Sheets("Urlaub1").Select For Z = 4 To 34 If Cells(Z, 5).Value = "U" Then Cells(Z, 5).Copy Destination:=Sheets("1.Quartal").Cells(Z, 5) Z = Z + 1 End If Next Application.Screenupdating = true End Sub

Sub Urlaub_eintragen() Dim Z as Long 'Z = Zeile Dim S As Long 'S = Spalte --> Vorbereitung für Spaltenwechsel Application.ScreenUpdating = False Sheets("Urlaub1").Select Zeile1: 'Definition Sprungmarke S = 5 For Z = 4 To 34 If Cells(Z, 5).Value = "U" Then Cells(Z, 5).Copy Destination:=Sheets("1.Quartal").Cells(Z, 5) End If Next If S

Sub Urlaub_eintragen() Dim Z as Long 'Z = Zeile Dim S As Long 'S = Spalte --> Vorbereitung für Spaltenwechsel Application.ScreenUpdating = False Sheets("Urlaub1").Select For S = 5 To 23 For Z = 4 To 34 If Cells(Z, 5).Value = "U" Then Cells(Z, 5).Copy Destination:=Sheets("1.Quartal").Cells(Z, 5) End If S = S + 9 Next Next Sheets("Start").Select Application.ScreenUpdating = true End Sub

Sub Urlaub_eintragen() Dim Z as Long 'Z = Zeile Dim S As Long 'S = Spalte --> Vorbereitung für Spaltenwechsel Application.ScreenUpdating = False Sheets("Urlaub1").Select For S = 5 To 23 Step 9 For Z = 4 To 34 If Cells(Z, S).Value = "U" Then Cells(Z, S).Copy Sheets("1.Quartal").Cells(Z, S).PasteSpecial Paste:=xlPasteValues End If Next Next Sheets("Start").Select Application.ScreenUpdating = true End Sub

For S = 5 To 23 Step 9 'hier, wie schon erwähnt das Step 9, dann ist unten das S = S + 9 unnötig For Z = 4 To 34 If Cells(Z, 5).Value = "U" Then Cells(Z, S).Copy 'Zelle und Spalte als Variable, sonst springt er nicht ins Sheets("Tabelle2").Cells(Z, S).PasteSpecial Paste:=xlValue 'hier auch beides als Variable, außerdem geht es bei mir mit dem einfügen nur, wenn Copy-Paste in zwei Zeilen geschrieben wird End If

Beliebteste Forumthreads (12 Monate)

Urlaubstabelle in Monatsplan übertragen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread