VBA实现列表框内容互移时List属性设置类型冲突错误如何解决

错误触发原因 #

你的代码报错核心原因是列表框控件属性配置不匹配，常见触发场景有两个：

• 两个列表框的ColumnCount（列数）属性不一致：你当前代码逻辑是处理2列的列表框内容，如果目标列表框的列数被设为1，给不存在的第二列赋值时就会触发类型冲突
• 目标列表框设置了RowSource属性绑定了工作表数据源：绑定了数据源的列表框属于受控控件，不支持通过AddItem、直接修改List属性的方式更新内容，强制赋值就会报错。

修复方案 #

1. 打开表单设计界面，选中lstAnwesende和lstAbwesende两个列表框控件，检查属性面板里的ColumnCount，统一设置为2
2. 清空两个列表框的RowSource属性值，改为通过Form的初始化事件手动加载初始列表内容，示例初始化代码如下：

Private Sub UserForm_Initialize()
    ' 示例：从A2:B10区域加载出席成员列表，可根据实际需求修改范围
    Dim rng As Range
    For Each rng In Sheet1.Range("A2:A10")
        If rng.Value <> "" Then
            Me.lstAnwesende.AddItem rng.Value
            Me.lstAnwesende.List(Me.lstAnwesende.ListCount - 1, 1) = rng.Offset(0, 1).Value
        End If
    Next
End Sub

3. 如果确认列数和RowSource配置都无异常，可在赋值时增加空值判断避免特殊值导致的类型冲突，修改赋值代码为：

xZiel.List(xZiel.ListCount - 1, 1) = CStr(Nz(xQuelle.List(y, 1), ""))

4. 如果业务需求必须保留列表框的数据源绑定，就修改移动逻辑：直接操作绑定的数据源单元格调整成员所属分组，修改完成后调用lstAnwesende.RowSource = lstAnwesende.RowSource刷新列表框显示即可。

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