Geht das auch schneller...?
abu
habe mal wieder ein Problem und hoffe ihr koennt mir helfen.
Ich muss eine Datei durchsuchen und zwar wie folgt.
1 ich setze ein Filter in Spalte A
2 in Spalte B koennen 11 verschiede Werte stehen und fuer jeden Wert:
3 muss ich in Spalte C zaehlen wie viele verschiedene Werte stehen
Das ganze muss ich fuer ca. 2000 verschiede Werte in Spalte A machen und die Datei hat ca. 30.000 Zeilen. Bei mir dauert das ganze ca. 10min. Ich vermute mal das kann man auch besser loesen.
Hat jemand vllt. eine Idee wie?
Hier mein Ansatz fuer den ersten Wert in Spalte A und der erste moegliche Wert in Spalte B. das ganze habe ich dann noch 10mal fuer die anderen moeglichen Werte in Spalte B.
Wuerde mich ueber Antwort freuen.
Beste Gruesse
Abu
For i = 1 To UBound(ldaten)
z = SuchenStock(ldaten(i, 1))
If z -1 Then
Selection.AutoFilter Field:=1, Criteria1:=ldaten(i, 1)
Selection.AutoFilter Field:=2, Criteria1:="DYNPCKA - pick area A"
If sichtbar 1 Then
Set oFilter1 = CreateObject("Scripting.dictionary")
For Each rngG1 In Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
If Rows(rngG1.Row).Hidden = False Then
oFilter1(rngG1.Value) = rngG1.Value
End If
Next
ldaten(i, 13) = oFilter1.Count
End If