Schleifenauswertung: Collection oder Array?

Hallo Herber Fans,
in den letzten Tagen häuft sich bei mir die Frage, was in Schleifen günstiger ist, um die Ergebnisse dieser Schleifenprüfungen vom Typ LONG zu sammeln. Ein Array oder eine Collection. Ich lasse nach einem String suchen und alle Fundspaltennummern sollen als Long gespeichert und nach der eigentlichen Suchschleife ausgewertet werden. Hinsichtlich Min(), Max(), Average(), Sum(), Item(i), etc.
Mit einem Array klappt das schon ganz gut, aber leider wird mir das Minimum mit 0 angegeben. Auch habe ich das Problem, das ich im ReDim Befehl angeben muß, wie viel Speicherplatz reserviert werden soll. Aber da die Suche und die Erkenntnis wie viele Fundstellen, deren Spaltennummer ich als Long speichern will, erst nach dem ReDim kommt, kann ich das Array nicht korrekt definieren.
Also dachte ich an eine Collection. Bei der Collection, kann ich die Werte dann hinsichtlich count und item(i) auch auswerten, aber anders als ein Array kann ich kein Min() oder Max() bilden, ohne nicht wieder eine Schleife ala For i = 1 to collection.count zu kreieren
Welche Lösungen würdet ihr mit Eurer Erfahrung empfehlen? Collection? Aber wie dann sauber den Average oder die Sum ermitteln?
https://www.herber.de/bbs/user/54086.xls
Vielen Dank und Grüße,
Andreas H.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim stWerte() Dim raZelle As Range Dim loZaehler As Long For Each raZelle In Worksheets(1).UsedRange If raZelle.Locked = False Then ReDim Preserve stWerte(0 To 1, 0 To loZaehler) stWerte(0, loZaehler) = raZelle.Address stWerte(1, loZaehler) = raZelle.Interior.ColorIndex loZaehler = loZaehler + 1 End If Next raZelle

Hi Karin, Hallo Kawensmann,
Danke für Eure Tipps. Daß mit dem ReDim Preserve war der Knackpunkt. Ich habe mit dem Codebeispiel von Karin ein bißchen experimentiert und dann habe ich es hinbekommen. Und das schöne ist, ich kann die Ergebnisse wunderbar auswerten. Volltreffer.
Eine kleine Frage habe ich jedoch noch. Karin, in Deinem Beispiel startet ReDim Preserve in den Klammern immer bei 0. 0 to xyz.
Muß ein Array immer bei 0 starten? An sich ist das nicht dramatisch, aber da ich mit den Array Ergebnissen oftmals weiterarbeite und alle anderen For i = 1 to xyz Schleifen bei 1 starten ist das eine ungünstige Kombination. Ich hatte es erst vor wenigen Tagen, daß mich das ziemlich aus dem Konzept gebracht hatte, da ich immer mit einer -1 variieren mußte, um korrekte Ergebnisse zu bekommen. Als ich den Code auf änderte und bei 1 starten ließ, bekam ich eine Fehlermeldung des Index.


Sub SearchTest_Array_2()
Dim FundSt()
Dim iCounter As Long
Dim rgFound As Range, firstAddress As String
Dim MeinTXT As String
MeinTXT = "Europ" 'Mein Suchtext
With ActiveSheet.UsedRange
Set rgFound = .Find("*" & MeinTXT & "*", LookIn:=xlValues)
If Not rgFound Is Nothing Then
firstAddress = rgFound.Address
Do
ReDim Preserve FundSt(0 To iCounter)       'Müssen Arrays immer bei 0 starten?
Set rgFound = .FindNext(rgFound)
FundSt(iCounter) = rgFound.Column
iCounter = iCounter + 1
Loop While Not rgFound Is Nothing And rgFound.Address  firstAddress
End If
End With
Debug.Print "Max    :"; Application.Max(FundSt)
Debug.Print "Min    :"; Application.Min(FundSt)
Debug.Print "4. Item:"; FundSt(4 - 1)
`Das meine ich. Wenn ich das 4. Item mauslesen möchte, muß ich mit -1 auf 3 runtergehen, da das  _
Array bei 0 startet.
End Sub

Wenn ich dieses Detail noch klären könnte, wäre ich wunschlos glücklich und um ein paar sehr wertvolle Erkenntnisse reicher.
Dankeschön Euch beiden und noch einen schönen Mittwoch- Abend.
Viele Grüße, Andreas

Sub SearchTest_Array_MehrfachDimensioniert() Dim FundSt() Dim iCounter As Long Dim rgFound As Range, firstAddress As String Dim MeinTXT As String MeinTXT = "Europa" 'Mein Suchtext With ActiveSheet.UsedRange Set rgFound = .Find("*" & MeinTXT & "*", LookIn:=xlValues) If Not rgFound Is Nothing Then firstAddress = rgFound.Address Do ReDim Preserve FundSt(0 To 1, 0 To iCounter) 'Müssen Arrays immer bei 0 starten? Set rgFound = .FindNext(rgFound) FundSt(0, iCounter) = rgFound.Column FundSt(1, iCounter) = rgFound.Row Debug.Print rgFound.Row, rgFound.Column iCounter = iCounter + 1 Loop While Not rgFound Is Nothing And rgFound.Address firstAddress End If End With Debug.Print "MaxColumn :"; Application.Max((FundSt(0, iCounter))) Debug.Print "MaxRow :"; Application.Max((FundSt(1, iCounter))) Debug.Print "4. ColumnItem :"; FundSt(0, (4 - 1)) Debug.Print "4. RowItem :"; FundSt(1, (4 - 1)) End Sub

Sub SearchTest_Array_MehrfachDimensioniert() Dim FundSt() Dim iCounter, i As Long Dim rgFound As Range, firstAddress As String Dim MeinTXT As String MeinTXT = "Europa" 'Mein Suchtext With ActiveSheet.UsedRange Set rgFound = .Find("*" & MeinTXT & "*", LookIn:=xlValues) If Not rgFound Is Nothing Then firstAddress = rgFound.Address iCounter = 1 Debug.Print " Rows "; "Columns" Do ReDim Preserve FundSt(1 To 2, 1 To iCounter) Set rgFound = .FindNext(rgFound) FundSt(1, iCounter) = rgFound.Column FundSt(2, iCounter) = rgFound.Row Debug.Print rgFound.Row, rgFound.Column iCounter = iCounter + 1 Loop While Not rgFound Is Nothing And rgFound.Address firstAddress End If End With i = 1 For i = 1 To 2 Debug.Print "MaxColumn :"; Application.Max((FundSt(i))) 'Fehler: "Index auß _ erhalb des gültigen Bereiches." Debug.Print "3. ColumnItem :"; FundSt(i, 3) i = i + 1 Debug.Print "MaxRow :"; Application.Max((FundSt(i))) 'Fehler: "Index auß _ erhalb des gültigen Bereiches." Debug.Print "3. RowItem :"; FundSt(i, 3) Next i End Sub

Sub SearchTest_Array_MehrfachDimensioniert() Dim iCounter, i As Long Dim rgFound As Range, firstAddress As String Dim MeinTXT As String Dim rgValues As Range MeinTXT = "Europa" 'Mein Suchtext With ActiveSheet.UsedRange Set rgFound = .Find("*" & MeinTXT & "*", LookIn:=xlValues, lookat:=xlPart) If Not rgFound Is Nothing Then firstAddress = rgFound.Address Set rgValues = rgFound Do Set rgFound = .FindNext(rgFound) If Not rgFound Is Nothing Then Set rgValues = Union(rgValues, rgFound) End If Loop While Not rgFound Is Nothing And rgFound.Address firstAddress End If End With If Not rgValues Is Nothing Then MsgBox WorksheetFunction.Max(rgValues) MsgBox WorksheetFunction.Min(rgValues) End If End Sub

Beliebteste Forumthreads (12 Monate)

Schleifenauswertung: Collection oder Array?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread