mir stellt sich folgendes Problem.
In meiner Version Excel 365 läuft der folgende Code einwandfrei:
Set objArrLst = CreateObject("System.collections.arraylist")
On Error Resume Next
For L = 0 To UBound(Gewerke_Array)
If Not scrDic.exists(Gewerke_Array(L, 0)) Then
scrDic.Add Gewerke_Array(L, 0), L
objArrLst.Add Gewerke_Array(L, 0)
End If
Next
On Error GoTo 0
'Erase Gewerke_Array
With objArrLst
.Sort
Gewerke_Array = .ToArray
End With
Diesen Code habe ich mir aus dem I-net geholt und für mich entsprechend angepasst.
Das Array soll gefüllt werden, ohne dass doppelte Werte vorkommen und anschließend sortiert, was mit meiner Version einwandfrei funktioniert.
Eine Kollegin hat Excel 2010 auf ihrem Rechner und bereits in der Zuweisungszeile kommt der Fehler:
Automatisierungsfehler
Könnt ihr bitte helfen?
Danke
Gruß Oisse