ComboBox .AddItem, wenn Datum nicht in Range
29.01.2024 15:32:05
Jess
ich stehe hier auf dem Schlauch.
Ich möchte eine Combobox mit Datumsangaben der nächsten 12 Montage befüllen. Das klappt. Jedoch würde ich diese Daten vorab gerne mit einer Liste (Range Tabellenblatt "Einzelberechnung" abgleichen. Es handelt sich um Feiertage, die nicht in die Combobox übernommen werden sollen.
Vorab vielen Dank für Feedback und Hilfe!
Jess
Hier der Code:
Private Sub UserForm_Initialize()
Dim i As Integer
Dim n As Variant
Dim datum As Date
With Me.ComboBox1
.ColumnCount = 2
.ColumnWidths = "0cm;3cm"
.Clear
For i = 1 To 12
For Each n In Worksheets("Einzelberechnung").Range("AB61:AB76")
datum = Int(Date / 7) * 7 + 2 + i * 7
If datum > n Then
.AddItem datum
.List(.ListCount - 1, 1) = Format(datum, "DDD, DD.MM.YYYY")
Exit For
End If
Next n
Next i
End With
End SubAnzeige