Matrix durchsuchen

Forumthread: Matrix durchsuchen

Matrix durchsuchen

13.10.2004 01:42:02

manni

Hallo,
ich habe folgendes Problem.
Eine größere Matrix muß durchsucht werden, ein bestimmter Wert kommt öfter vor. Wird der Wert gefunden, so müssen die Werte drei Zeilen weiter addiert werden.
Beispiel:
https://www.herber.de/bbs/user/12018.xls
Es wird der Wert 58 in der Matrix gesucht.
Die gefundenen Werte drei Zeilen weiter müssen addiert werden.
58 wird viermal in der Matrix gefunden, drei Zeilen weiter stehen die Werte:
10696,10562,9357,9357. Diese Werte müssen addiert werden.
Noch ein Problem mit der gleichen Matrix:
Es wird der Wert 79 gesucht.
79 wird fünfmal in der Matrix gefunden
Wenn vier Zeilen weiter "weniger" steht, so muss der Wert der hinter "weniger" (in der gleichen Zelle) steht addiert werden.
"weniger" wird vier Zeilen hinter 79 dreimal gefunden.
hinter "weniger" werden die Werte 2,1,3 gefunden. Diese Werte müssen addiert werden. =6
In einer weiteren Zelle muss gezählt werden wieoft "weniger" (mit unterschiedlichen Werten dahinter) gefunden wird.
Hier wird zB. dreimal 79 mit vier Zeilen weiter "weniger" gefunden
Ich hoffe es ist nicht zu sehr verwirrend. Danke schon mal.
Manni

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Matrix durchsuchen__TEILLÖSUNG

13.10.2004 08:23:58

MRP
AW: Matrix durchsuchen__TEILLÖSUNG

manni
AW: Matrix durchsuchen

13.10.2004 08:58:53

PeterG

AW: Matrix durchsuchen__TEILLÖSUNG

13.10.2004 08:23:58

MRP

Hallo Manni,
schreibe in A21: 58 und in B21: =SUMMENPRODUKT(($A$5:$A$18=A21)*$D$5:$D$18)
Das mit dem weniger ist etwas wirr erklärt, zumindest versteh ichs nicht ganz. Meine jedoch, dass es wohl einfacher zu lösen wäre, wenn hinter dem weniger nicht auch noch ne Zahl stehen würde.
Ciao
Manuele Rocco Parrino

AW: Matrix durchsuchen__TEILLÖSUNG

manni

Hallo MRP,
erst mal Danke, aber hilft mir nicht. Die ganze Tabelle (A5:N18) soll durchsucht werden.
Leider steht hinter dem "weniger" eine Zahl !
Danke
manni

AW: Matrix durchsuchen

13.10.2004 08:58:53

PeterG

Hallo Manni,
hier ein etwas anderer Ansatz
Sub WirSuchen()
Dim gesucht As Double, Summe As Double
gesucht = 51
Summe = SuchVar(gesucht, "A1:J25", "Tabelle1")
Sheets("Tabelle2").Cells(1, 1) = Summe
End Sub


Private Function SuchVar(Var#, Bereich$, Blatt$) As Double
Dim Zelle As Range, ersteAdresse$, Wert As Double
With Worksheets(Blatt).Range(Bereich)
Set Zelle = .Find(Var, LookIn:=xlValues, LookAt:=xlWhole)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address
Wert = Zelle.Offset(3, 0)
Do
Set Zelle = .FindNext(Zelle)
Wert = Wert + Zelle.Offset(3, 0) '<-- 3 Zeilen weiter
Loop While Not Zelle Is Nothing And _
Zelle.Address <> ersteAdresse
End If
End With
SuchVar = Wert
End Function

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Matrix durchsuchen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread