带有列表框值过滤器的列表框标题

Question

我正在根据日期从表格中填充列表框。 这已经成功了。

但现在我似乎无法获得上面的标题/标题。 我正在使用以下代码将数据放入列表框中：

    Sub VulListbox()

Workbooks("TestListbox.xlsm").Activate

Dim id As String, i As Long, Flag As Boolean

    Sheets("Blad1").Select
    Flag = False
    i = 0
    id = Me.Datum.Caption
    Me.ListBox1.ColumnCount = 7
    Me.ListBox1.ColumnWidths = "40;100;20;20;20;20;20"
    Me.ListBox1.ColumnHeads = True
    Me.ListBox1.RowSource = Head
    
    Do While Cells(i + 1, 1).Value <> ""

        If Cells(i + 1, 2).Value = id Then
            Flag = True
                Me.ListBox1.AddItem
                Me.ListBox1.List(UBound(Me.ListBox1.List), 0) = Cells(i + 1, 1).Value
                Me.ListBox1.List(UBound(Me.ListBox1.List), 1) = Cells(i + 1, 2).Value
                Me.ListBox1.List(UBound(Me.ListBox1.List), 2) = Cells(i + 1, 3).Value
                Me.ListBox1.List(UBound(Me.ListBox1.List), 3) = Cells(i + 1, 4).Value
                Me.ListBox1.List(UBound(Me.ListBox1.List), 4) = Cells(i + 1, 5).Value
                Me.ListBox1.List(UBound(Me.ListBox1.List), 5) = Cells(i + 1, 6).Value
               
        End If

 i = i + 1

    Loop

End Sub

我已经用 RowSource 尝试过这个，但这不起作用。 然后我要么得到标题但没有日期的过滤器，要么我得到日期的过滤器但标题不起作用。

列的标题在 Row1 中，我希望将它们放在表格的顶部，并且我还希望按日期过滤 ListBox。

如果我同时尝试，例如：

Private Sub UserForm_Initialize()

Datum.Caption = Format(Now, "dddd d mmmm yyyy", vbUseSystemDayOfWeek, vbFirstFourDays)


 Me.ListBox1.RowSource = "A2:F6"
End Sub

然后我收到这条消息：

运行时错误“70”：权限被拒绝。

可能有人对此有完美的答案。

提前致谢