Spezieller Kalender Urlaubstage speichern

[Terades]

Guten Morgen zusammen,

ich bins mal wieder.   Und zwar kam mir eine Idee, dass man eventuell die Urlaubstage ("U") in eine Liste einträgt, sodass man sie wenn man das Jahr wechselt behalten kann.

Habe einen Reiter erstellt mit nem Beispiel, was gibt es da für möglichkeiten? Verweise oder so?

Viele Grüße,

Carsten

Link zum Ursprungs-Thema mit Dateien:
http://www.clever-excel-forum.de/thread-14654.html

[Terades]

Ok glaube ich habs doch hinbekommen. ::)

Code:

Sub test()
 Dim lngZeile As Long
 Dim lngSpalte As Long
 Dim i As Long

   i = 2
   
   Sheets("Urlaubsplan 2018").Activate
   
 For lngZeile = 3 To 19 Step 4
    For lngSpalte = 2 To Cells(lngZeile, Columns.Count).End(xlToLeft).Column
       If (Cells(lngZeile + 2, lngSpalte) = "U") Then
           Sheets("Urlaubstage").Cells(i, 2) = (Cells(lngZeile, lngSpalte))
           i = i + 1
       End If
    Next lngSpalte
 Next lngZeile
End Sub

[Rabe]

:18: :15: :100: