ListBox未显示ListObject新增行问题（RowSource相关）

我有一个包含ListBox1的UserForm1，ListBox数据来自ListObject lstDaten，可通过顾问下拉框cbBerater、产品下拉框cbArtikel、国家下拉框cbLand及文本框tbSuche进行筛选：

• 初始化时通过ListBox1.RowSource = lstDaten填充ListBox；
• 点击筛选按钮butAddItem时，先执行ListBox1.RowSource = vbNullString和ListBox1.Clear清空数据；
• 通过另一个UserForm可向lstDaten添加新行数据。

当前问题：使用任意筛选方法时新行可正常显示，但未应用筛选时新添加的条目无法显示。我推测问题与.RowSource有关，删除UserForm_Initialize中的RowSource后问题似乎解决，但重新添加后问题依旧。.RowSource包含500+行数据，无筛选时用.RowSource填充速度极快，逐行添加虽可行但速度慢，希望找到问题根源。

筛选按钮代码 #

Private Sub butAddItem_Click() 'Suche ausführen
Dim wsDaten As Worksheet: Set wsDaten = ThisWorkbook.Sheets("Daten")
Dim lstDaten As ListObject: Set lstDaten = wsDaten.ListObjects("Daten")
Dim NumZeilen As Integer: NumZeilen = lstDaten.ListRows.Count
Dim colSuche As Integer
Dim strDropdown As String
Dim arrHeader As String

ListBox1.RowSource = vbNullString 'Löschen der RowSource, damit neu gefüllt werden kann
ListBox1.Clear 'Falls noch Daten in Liste sind, werden diese entfernt

'Wenn durch alle gefiltert werden soll, festlegen des Starts und des Endes
If cbHeader.Value = "Alle" Then
    loopStart = 1
    loopEnde = lstDaten.ListColumns.Count
Else 'Wenn nach einer bestimten Spalte gefiltert werden soll, wird diese hier definiert
    loopStart = lstDaten.ListColumns(cbHeader.Value).Index
    loopEnde = loopStart
End If

For j = 1 To NumZeilen 'Loop durch die Zeilen zum Vergleich mit dem Suchtext

    'Wenn ein Artikel ausgewählt ist, überspringe Zeilen ohne diesen Artikel
    If Not cbArtikel = "Alle" And Not lstDaten.DataBodyRange(j, lstDaten.ListColumns("Artikel").Index) = cbArtikel Then
        GoTo NextIteration
    End If

    'Wenn ein Artikel ausgewählt ist, überspringe Zeilen ohne diesen Artikel
    If Not cbBerater = "Alle" And Not lstDaten.DataBodyRange(j, lstDaten.ListColumns("Berater").Index) = cbBerater Then
        GoTo NextIteration
    End If

    'Wenn ein Land ausgewählt ist, überspringe Zeilen ohne diesen Artikel
    If Not cbLand = "Alle" And Not lstDaten.DataBodyRange(j, lstDaten.ListColumns("Land").Index) = cbLand Then
        GoTo NextIteration
    End If

For k = loopStart To loopEnde 'Loop durch die Spalten
    If InStr(1, lstDaten.DataBodyRange(j, k), tbSuche.Value, vbTextCompare) > 0 Or tbSuche.Value = "" Then 'Vergleich Zelleninhalt mit Suchtext

        arrDaten = lstDaten.ListRows(j).Range 'Bei Übereinstimmung wird Zelleninhalt dem Array hinzugefügt.
        ListBox1.AddItem

        For i = 0 To 9 'Hinzufügen des Arrays zur Liste
            ListBox1.List(ListBox1.ListCount - 1, i) = arrDaten(1, i + 1)
        Next i
        GoTo NextIteration
    End If


Next k
NextIteration:
Next j

End Sub

PS：我知道GoTo这类代码不够优化，但能正常运行。

根源定位 #

问题出在**RowSource的绑定机制**：

1. 初始化时ListBox1.RowSource = lstDaten会让ListBox直接绑定到ListObject的初始区域，但当通过其他UserForm添加新行后，lstDaten的区域范围已更新，Excel控件的RowSource绑定不会自动刷新引用——除非重新设置RowSource。
2. 执行筛选操作时，代码会清空RowSource并通过AddItem手动添加符合条件的行，此时会读取最新的lstDaten.ListRows.Count，所以能获取新行；但未筛选时依赖初始化的旧RowSource绑定，该绑定区域不包含新增行。

解决方案 #

保留无筛选时的速度优势，同时解决新行不显示问题，可做以下调整：

1. 移除初始化时的RowSource绑定，改为在无筛选状态下动态设置RowSource为lstDaten.DataBodyRange.Address(External:=True)，确保每次都获取最新的区域范围。
2. 修改筛选按钮逻辑，先判断是否为“无筛选”状态（所有下拉框选Alle且tbSuche为空），若是则直接设置RowSource，否则执行手动筛选添加。

修改后的butAddItem_Click核心逻辑示例

' 先判断是否是无筛选状态
If cbArtikel = "Alle" And cbBerater = "Alle" And cbLand = "Alle" And tbSuche = "" And cbHeader = "Alle" Then
    ListBox1.RowSource = lstDaten.DataBodyRange.Address(External:=True)
    Exit Sub
End If

' 以下是原有的筛选逻辑...
ListBox1.RowSource = vbNullString
ListBox1.Clear
' ...剩余筛选代码不变

3. 可选优化：在添加新行的UserForm中，添加代码刷新UserForm1的ListBox（比如调用自定义刷新方法），确保新行添加后立即更新显示。

内容的提问来源于stack exchange，提问作者JMP