ich befülle auf Rat von Hajo, meine ListBox wie folgt:
With wksSK
With ListBox1
.Clear
.ColumnCount = 2
For Repeatings = 2 To Worksheets("Hilfstabelle_SchulKalenderjahr").Range("A65536").End(xlUp).Row
.AddItem wksSK.Cells(Repeatings, 5).Value
.List(.ListCount - 1, 1) = wksSK.Cells(Repeatings, 6).Value
Next
End With
End With
In der Spalte 5 sind die jeweiligen Datumwerte für 1.1.2001 usw. ind der Spalte 6 die Werte jeweils für 31.12.2001 usw..
Nun möchte ich, dass die Listbox1 mit dem Wert des heutigen Datums (z.B. 05.10.2019)
= 01.01.2019 in Spalte 5 und 31.12.2019 in Spalte 6 vorbelegt wird.
Besten Dank für eure Hilfe.
Gruss
Peter