Auf der Hauptseite von Herber.de findet sich die folgende Excel Datei mit VBA Programierung:
https://www.herber.de/mailing/Urlaub_gem._Tabelle_in_Urlaubsliste_eintragen.htm
Option Explicit
Sub UrlaubsEintrag()
Dim rng As Range
Dim iRow As Integer, iMonth As Integer, iCounter As Integer
iRow = 3
Do Until IsEmpty(Cells(iRow, 1))
For iMonth = Month(Cells(iRow, 2)) To Month(Cells(iRow, 3))
Set rng = Worksheets(Format(DateSerial(1, iMonth, 1), "mmmm")). _
Columns(1).Find _
(Cells(iRow, 1), LookIn:=xlValues, lookat:=xlWhole)
If iMonth = Month(Cells(iRow, 2)) And iMonth = _
Month(Cells(iRow, 3)) Then
For iCounter = Day(Cells(iRow, 2)) To Day(Cells(iRow, 3))
rng.Offset(0, iCounter).Interior.ColorIndex = 3
Next iCounter
ElseIf iMonth = Month(Cells(iRow, 2)) Then
For iCounter = Day(Cells(iRow, 2)) To Day(DateSerial _
(1, Month(Cells(iRow, 2)) + 1, 0))
rng.Offset(0, iCounter).Interior.ColorIndex = 3
Next iCounter
Else
For iCounter = 1 To Day(Cells(iRow, 3))
rng.Offset(0, iCounter).Interior.ColorIndex = 3
Next iCounter
End If
Next iMonth
iRow = iRow + 1
Loop
End Sub
Diese Programierung würde ich gern so ändern, dass sie für meine Urlaubstabelle angewendet werden könnte:https://www.herber.de/bbs/user/124202.xlsm
Die entsprechenden Datumswerte sind auf dem Arbeitsblatt "UrlaubsdatenMitarbeiter" eingetragen. Per Button sollen die Datumswerte den Mitarbeitern auf den Arbeitsblättern Jan-Dez zugeordnet werden und mit einem "U" gekennzeichnet werden.
Da ich zwar die Grundbegriffe (irgendwie) verstehe, aber nicht wirklich begabt dafür, bitte ich um Hilfe.
Gruß Romy