beim Öffnen einer Datei, in der zuerst Kombinationsfelder gefüllt werden, wird folgende Fehlermeldung angezeigt: "Error: -2146232576 Automatisierungsfehler"
Der Fehler passiert in folgendem Code:
Set objSortedList = CreateObject("System.Collections.SortedList")
Set objArrayList = CreateObject("System.Collections.ArrayList")
With ThisWorkbook.Worksheets("Daten")
varArr = .Range(.Cells(2, 9), .Cells(.Rows.Count, 9).End(xlUp)).Value
End With
For lngTMP = LBound(varArr) To UBound(varArr)
objSortedList(varArr(lngTMP, 1)) = "H2SO4"
Next lngTMP
objArrayList.Add "Alle"
objArrayList.AddRange objSortedList.Keys
With ThisWorkbook.Worksheets("Kennzahlen").combo_OV
.List = objArrayList.ToArray
End With
Ich habe im Netz etwas gestöbert und Hinweise zu dem Fehler gefunden. ich verstehe das jedoch leider nicht und weiß nicht genau was ich ändern muss. Kann mir jemand einen Hinweis geben? Vielen Dank!!
Gruß
Dirk