...ich lade in einer Userform einige Listboxen mit Werten aus verschiedenen Tabellen. Bis vor kurzem lief es ohne Probleme. Doch jetzt kommt es immer zu einer Fehlermeldung : siehe Grafik
https://www.herber.de/bbs/user/76332.jpg
Der Code läuft bis zu dieser Prozedur und auch hier bis zu vorletzten Zeile:
Private Sub OKategorie_fuellen()
Set objDic = CreateObject("Scripting.Dictionary")
Anzahl = Worksheets("DBFelder").Cells(Rows.Count, 6).End(xlUp).Row
With Sheets("DBFelder")
Set Bereich = .Range("F2:F" & Anzahl) 'relevanten Bereich ermitteln
End With
For Each rngZelle In Bereich
If rngZelle.Value "" Then
Debug.Print rngZelle.Value
objDic(rngZelle.Value) = 0 'Nur Unikate sammeln
End If
Next
objLBKOK.List = objDic.keys '
Die Werte werden laut debug.print sauber erkannt und übergeben...Woran kann ich nun etwas erkennen, warum es plötzlich nicht mehr klappt ?
Vielen Dank und Gruß
Kay