CreateObject("Scripting.dictionary")
12.03.2009 13:23:48
chris
habe eine frage und würde mich riesig freuen wenn ihr mir helfen könnt.
Ich Will mit dem dictionary arbeiten.
Und zwar habe ich eine Datei in der stehen untereinander werte und ich möchte gerne erreichen das jeder Wert nur 1 mal im Array scr steht.
Das Makro läuft auch nur es werden angezeigt im Scr Count = 393 aber wenn ich unter Debuggen in Überwachungsausdrücke reinschaue sehe ich nur 256.
Kann das dictionary Object nicht mehr ?
Oder liegt es an der Variablen deklaration ?
Momentan habe ich nur Set scr = CreateObject("Scripting.dictionary")
Hier das Makro
Set scr = CreateObject("Scripting.dictionary")
'Schleife über alle einträge.Einlesen der Einträge nur einzelen Werte keine Doppelten werte in Array (Arr_Suchbegriffe) eintragen
With Vorlage.Worksheets("Stand")
For X = 2 To .Cells(.Cells.Rows.Count, 4).End(xlUp).Row
scr(.Cells(X, 4).Text) = scr(.Cells(X, 4).Text)
Next X
End With
Vielen dank für eure Hilfe
gruß Chris