Herbers Excel/VBA-Archiv

Private Sub cbo_year_Change()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_0_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_1_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_2_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_3_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_4_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_5_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_6_Click()
Me.lst_day.Clear
Call my_days
End Sub

Private Sub chk_all_Click()
Dim i As Integer
If Me.chk_all Then
    For i = 0 To Me.lst_day.ListCount - 1
        Me.lst_day.Selected(i) = True
    Next
Else
    For i = 0 To Me.lst_day.ListCount - 1
        Me.lst_day.Selected(i) = False
    Next
End If
End Sub

Private Sub chk_month_Click()
If Me.chk_month Then
    Me.lst_month.MultiSelect = fmMultiSelectMulti
    Me.cmd_akt.Enabled = True
Else
    Me.lst_month.MultiSelect = fmMultiSelectSingle
    Me.cmd_akt.Enabled = False
End If
End Sub

Private Sub cmd_abr_Click()
Unload Me
End Sub

Private Sub cmd_akt_Click()
Dim i As Integer
Me.lst_day.Clear
Call my_days

End Sub

Private Sub cmd_ok_Click()
    Dim wkSh As Worksheet, rng As Range, _
        mycheck As Integer, i As Integer

    Set wkSh = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
        Set rng = wkSh.Range("C19:C32")
    Range("C19:C32").ClearContents
    For i = 0 To Me.lst_day.ListCount - 1
        If Me.lst_day.Selected(i) = True Then
            mycheck = mycheck + 1
            rng(mycheck, 1).Value = CDate(Left(Me.lst_day.List(i), 8))
            
        End If
    Next
    If mycheck = 0 Then
        MsgBox "bitte Tage wählen"
    End If
End Sub

Private Sub lst_month_Click()
If Me.lst_month.ListIndex >= 0 Then
    Me.lst_day.Clear
    Call my_days
End If
End Sub

Private Sub UserForm_Activate()
Dim i As Integer

If TypeOf Selection Is Range Then
For i = 1 To 24
    Me.lst_month.AddItem Format(DateSerial(1900, i, 1), "mmmm")
    Me.cbo_year.AddItem Year(Date) - 3 + i
Next
Me.cbo_year.ListIndex = 1
Me.lst_month.ListIndex = Month(Date) - 1
Else
    MsgBox "bitte zuerst Zielzelle wählen"
    Unload Me

End If
End Sub