Hi zusammen,
ich habe ein Makro zum Füllen einer Listbox. Nach Auswahl in einer ComboBox soll die Listbox mit Daten aus einer Tabelle gefüllt werden. Leider tritt manchmal ein Fehler auf:
Private Sub cbxSelectPIC_Change()
dim wsPIC as Worksheet
dim r as Integer
lbxSelectAgent.Clear
wsPIC.Activate
With wsPIC
If cbxSelectPIC.ListIndex &gt= 0 Then
For r = 2 To .Cells(cbxSelectPIC.ListIndex + 1, 255).End(xlToLeft).Column
'On Error Resume Next
lbxSelectAgent.AddItem .Cells(cbxSelectPIC.ListIndex + 1, r)
'On Error GoTo 0
Next r
End If
End With
Bei lbxSelectAgent.AddItem .Cells(cbxSelectPIC.ListIndex + 1, r) tritt manchmal ein Fehler auf: Run-time error '-2147352571 (80020005)': Type mismatch
Kann mir jemand sagen, was ich falsch mache? Normalerweise funktioniert alles einwandfrei. Manchmal bekomme ich jedoch diesen Fehler.
Wäre schön, wenn jemand eine Idee hat, wie ich den Fehler vermeiden kann.
Gruß
Christian