31.07.2016, 11:28
Hallo liebe Leute,
wollte eigentlich was anderes posten, aber da mein "neues kleines" Projekt nicht (ausreichend) funktioniert, möchte ich hier eine kleine Warnung
aussprechen. Ich wollte in einem Range - Bereich unter Verwendung von Collection alle verschiedenen Wörter zählen (s. Code unten). Dabei mußte ich feststellen, dass die Anzahl der Items auf 256 begrenzt ist. Der Code unten ist also für größeren Datenmengen ungeeignet. Genau das Gleiche gilt dann aber auch bei einer zu großen Anzahl von Farben. Spreche auch gerade dich an "Crazy Tom", da du ja die Collection - Eigenschaft so gelobt hast. Sollte ich mich irren, postet mir das bitte hier. Würde gerne mit Collection weiterarbeiten, scheint mir aber nicht möglich.
wollte eigentlich was anderes posten, aber da mein "neues kleines" Projekt nicht (ausreichend) funktioniert, möchte ich hier eine kleine Warnung
aussprechen. Ich wollte in einem Range - Bereich unter Verwendung von Collection alle verschiedenen Wörter zählen (s. Code unten). Dabei mußte ich feststellen, dass die Anzahl der Items auf 256 begrenzt ist. Der Code unten ist also für größeren Datenmengen ungeeignet. Genau das Gleiche gilt dann aber auch bei einer zu großen Anzahl von Farben. Spreche auch gerade dich an "Crazy Tom", da du ja die Collection - Eigenschaft so gelobt hast. Sollte ich mich irren, postet mir das bitte hier. Würde gerne mit Collection weiterarbeiten, scheint mir aber nicht möglich.
Code:
Sub Zähle_die_verschiedene_Wörter_im_Range_Bereich()
On Error Resume Next
Dim i As Long, colAnzahl As New Collection
Dim MyArray As Variant
MyArray = Split(Join(Application.Transpose(Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row))))
For i = 0 To UBound(MyArray)
colAnzahl.Add MyArray(i), MyArray(i)
colAnzahl.Add i, i
Next
Debug.Print "Anzahl & " & colAnzahl.Count
End Sub
Auch bei 3 Millionen ist noch nicht Schluss ...