Connect Timestamps with Date v2

Option Explicit

Dim CheckBoxes() As New Class1
Dim CheckBoxes2() As New Class1
Dim ch_frame1 As MSForms.CheckBox
Dim ch_frame2 As MSForms.CheckBox

Private Sub UserForm_Initialize()
    HideBar Me
    Dim i As Integer

    'initialize public common variables, incase they are not initialized.
    ImportantVariables.TotalTimes = Worksheets("Algemene gegevens").Cells(8, 8).Value
    ImportantVariables.TotalDayParts = Worksheets("Algemene gegevens").Cells(10, 8).Value
    ImportantVariables.TotalTimeStampMoved = 0

    'set stuff in sheet "koppelTijdstippen"


    'set scrollheight
    Frame1.ScrollHeight = 30 * ImportantVariables.TotalTimes + 10
    Frame2.ScrollHeight = 30 * ImportantVariables.TotalTimes + 10

    'set combobox
    For i = 1 To ImportantVariables.TotalDayParts
        ComboBox1.AddItem "" & Worksheets("Algemene gegevens").Cells(2 + i, 19).Value
    Next i
    ComboBox1.ListIndex = 0

    'add events for each timestamp
    For i = 1 To ImportantVariables.TotalTimes
        Set ch_frame1 = Frame1.Controls.Add("Forms.CheckBox.1", "ch_frame1_" & i)
        With ch_frame1
            .Left = 10
            .Top = 10 + 30 * (i - 1)
            .Caption = "" & Worksheets("Algemene gegevens").Cells(2 + i, 17).Value
            .Name = "ch_frame1_" & i
        End With

        ReDim Preserve CheckBoxes(1 To i)
        Set CheckBoxes(i).CheckBoxGroup = ch_frame1
    Next i
End Sub

Private Sub ComboBox1_Change()

End Sub

Public Sub Frame2Update(Caption)
'    Dim i As Integer, j As Integer, k As Integer
'    For i = 1 To ImportantVariables.TotalTimes
'        If Worksheets("Algemene gegevens").Cells(2 + i, 17).Value = Caption Then
'            MsgBox "" & Caption
'            MsgBox "" & Split(Worksheets("Algemene gegevens").Cells(2 + i, 16), " ")(1)
'            ImportantVariables.SelectedTimeStamp = Int(Split(Worksheets("Algemene gegevens").Cells(2 + i, 16), " ")(1))
'            Frame1.Controls.Remove ("ch_frame1_" & SelectedTimeStamp)
'
'            For j = 1 To ImportantVariables.TotalDayParts
'                If ComboBox1.Value = Worksheets("Algemene gegevens").Cells(2 + j, 19).Value Then
'                    Dim ch_frame2 As MSForms.CheckBox
'                    Worksheets("koppelTijdstippen").Cells(1 + ImportantVariables.SelectedTimeStamp, Split(Cells(ImportantVariables.SelectedTimeStamp, 3 + j).Address, "$")(1)).Value = "" & Caption
'                    Worksheets("koppelTijdstippen").Cells(1 + ImportantVariables.SelectedTimeStamp, 3).ClearContents
'                    Set ch_frame2 = Frame2.Controls.Add("Forms.CheckBox.1", "ch_frame2_" & ImportantVariables.SelectedTimeStamp)
'                    ImportantVariables.TotalTimeStampMoved = 1 + ImportantVariables.TotalTimeStampMoved
'                    With ch_frame2
'                        .Left = 10
'                        .Top = 10 + 30 * (ImportantVariables.TotalTimeStampMoved - 1)
'                        .Caption = Caption
'                    End With
'
'                    ReDim Preserve CheckBoxes2(1 To ImportantVariables.TotalTimeStampMoved)
'                    Set CheckBoxes2(ImportantVariables.TotalTimeStampMoved).CheckBoxGroup2 = ch_frame2
'                End If
'            Next j
'        End If
'    Next i
End Sub

Public Sub Frame1Update(Caption)
    updateTotalItemsInFrame1
    MsgBox "frame1update"
End Sub

Private Sub Ok_Click()
    Unload Me
End Sub

Private Sub Cancel_Click()
    ClearSheet
    Unload Me
End Sub

Private Sub ClearSheet()
    '----- remove previous items and add new items (begin) -----

        Dim i As Integer

        'preps for column A, (LIST ITEMS)
        Sheets("koppelTijdstippen").Cells.Clear

'        Worksheets("koppelTijdstippen").Cells(1, 1).Value = "item list"
'        For i = 1 To ImportantVariables.TotalTimes
'            Worksheets("koppelTijdstippen").Cells(1 + i, 1).Value = Worksheets("Algemene gegevens").Cells(2 + i, 17).Value
'        Next i
'        Worksheets("koppelTijdstippen").Cells(ImportantVariables.TotalTimes + 3, 1).Value = "Totaal aantal items: " & ImportantVariables.TotalTimes
'
'        'preps for column C, (FRAME 1 ITEMS)
'        Dim TotalItemsInFrame1 As Integer
'        Worksheets("koppelTijdstippen").Cells(1, 3).Value = "frame1"
'        For i = 1 To ImportantVariables.TotalTimes
'            Worksheets("koppelTijdstippen").Cells(1 + i, 3).Value = Worksheets("Algemene gegevens").Cells(2 + i, 17).Value
'            If Worksheets("koppelTijdstippen").Cells(1 + i, 3).Value <> "" Then
'                TotalItemsInFrame1 = TotalItemsInFrame1 + 1
'            End If
'        Next i
'        Worksheets("koppelTijdstippen").Cells(ImportantVariables.TotalTimes + 3, 3).Value = "Totaal aantal items in frame1: " & TotalItemsInFrame1
'
''        'preps for column B, (FRAME 1 ITEMS)
''        Worksheets("koppelTijdstippen").Cells(1, 2).Value = "frame1"
''        For i = 1 To ImportantVariables.TotalTimes
''            Worksheets("koppelTijdstippen").Cells(1 + i, 2).Value = Worksheets("Algemene gegevens").Cells(2 + i, 17).Value
''        Next i
'
'        'preps for the remaining columns, (FRAME 2, PART 1 TO TOTALDAYPARTS)
'        For i = 1 To ImportantVariables.TotalDayParts
'            Worksheets("koppelTijdstippen").Cells(1, 3 + i).Value = "frame2 - dagdeel " & i
'        Next i
'        Worksheets("koppelTijdstippen").Columns("A:" & Split(Cells(1, 3 + i).Address, "$")(1)).AutoFit
'
'    '----- remove previous items and add new items (end) -----
End Sub

'Private Sub updateTotalItemsInFrame1()
'    Dim i As Integer
'    Dim TotalItemsInFrame1 As Integer
'    Worksheets("koppelTijdstippen").Cells(1, 3).Value = "frame1"
'    For i = 1 To ImportantVariables.TotalTimes
'        Worksheets("koppelTijdstippen").Cells(1 + i, 3).Value = Worksheets("Algemene gegevens").Cells(2 + i, 17).Value
'        If Worksheets("koppelTijdstippen").Cells(1 + i, 3).Value <> "" Then
'            TotalItemsInFrame1 = TotalItemsInFrame1 + 1
'        End If
'    Next i
'    Worksheets("koppelTijdstippen").Cells(ImportantVariables.TotalTimes + 3, 3).Value = "Totaal aantal items in frame1: " & TotalItemsInFrame1
'    ImportantVariables.TotalItemsInFrame1 = TotalItemsInFrame1
'End Sub