Längste Kette aus einer Liste finden ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim Nachfolger Sub test() Dim arr Dim z As Long Dim x arr = Range("c4:e26").Value Set Nachfolger = CreateObject("scripting.dictionary") '--- Nachfolgerbeziehungen Speichern For z = 1 To UBound(arr) If arr(z, 3) > "" Then Nachfolger(arr(z, 1)) = Nachfolger(arr(z, 1)) & "|" & arr(z, 3) Next For Each x In Nachfolger.keys Nachfolger(x) = Split(Mid(Nachfolger(x), 2), "|") Next '--- Ketten ermitteln For Each x In Nachfolger.keys Call KetteVerfvollständigen(x) Next End Sub Sub KetteVerfvollständigen(ByVal Kette As String) Dim arr Dim Letzte As String Dim nf arr = Split(Kette, "|") Letzte = arr(UBound(arr)) If Not Nachfolger.exists(Letzte) Then Cells(Rows.Count, 13).End(xlUp).Offset(1, 0).Value = Kette Else For Each nf In Nachfolger(Letzte) Call KetteVerfvollständigen(Kette & "|" & nf) Next End If End Sub

Hallo Daniel,

... Deine VBA-Lösung funktioniert zur Ermittlung der jeweiligen Datenkette problemlos. Jedoch wenn ich z.B. in E15 die "CH-27" durch "CH-34" ersetze, kommt in meiner XL2010er Version ein "Nicht genügend Stapelspeicher"-Meldung.

Ich habe mir (interessehalber) eine reine Formellösung gebaut. Da ich kein XL365 habe, habe ich die von Dir vermutet notwendige "Rekursion" auch vermeiden müssen und können.
Dazu habe ich eine Kombination einer Hilfsspaltenformel und einer Ergebnislösungsformel definiert und diese mit einer bedingten Formatierung zur übersichtlichen Darstellung der Ergebnislistung kombiniert. Das funktioniert soweit auch soweit für die Beispieldatendaten und auch meine zuvor bezeichnete Datenabweichung dieser. Allerdings würde ich diese Formellösung den TE nicht empfehlen wollen, weil er ja bis zu 500er Datenzeilen hat und dafür müßte ich wohl die Ergebnisformel mind. ca. 500*3*25 kopieren, Außerdem kann ich nicht abschätzen wielange Excel da rechnen muß. Theoretisch evtl möglich, Besser wäre allerdings da wohl schon eine funktionsfähige VBA-Lösung.

Gruß Werner
.. , - ...

Hallo Daniel,

... mag mit VBA so sein, aber ist nicht so mit meiner Formellösung, wo ich eine solche nicht habe.
Mein Ergebnis sieht da jedenfalls wie folgt aus:

Arbeitsblatt mit dem Namen 'Tabelle1'

CH-21

hat längste Kette mit

13 Datenwerten

Werte1

Wert2

CH-12

CH-34

CH-12

CH-34

CH-11

CH-34

CH-11

CH-30

CH-20

CH-34

CH-30

CH-21

CH-25

CH-26

CH-11

CH-22

CH-52

CH-53

CH-54

CH-55

CH-56

CH-57

CH-59

CH-30

CH-20

CH-23

CH-30

CH-21

CH-30

CH-22

CH-34

CH-11

CH-30

CH-23

CH-30

CH-20

CH-29

CH-24

CH-21

CH-25

CH-26

CH-21

CH-25

CH-22

CH-52

CH-53

CH-54

CH-55

CH-56

CH-57

CH-59

CH-25

CH-26

CH-23

CH-26

CH-34

CH-27

CH-28

CH-11

CH-50

CH-22

CH-52

CH-30

CH-20

CH-52

CH-53

CH-21

CH-25

CH-26

CH-34

CH-11

CH-53

CH-54

CH-22

CH-52

CH-53

CH-54

CH-55

CH-56

CH-57

CH-59

CH-54

CH-55

CH-23

CH-55

CH-56

CH-57

CH-29

CH-24

CH-57

CH-59

CH-58

CH-59

CH-21

CH-25

CH-26

CH-34

CH-11

CH-59

CH-30

CH-20

CH-21

CH-25

CH-26

CH-34

CH-30

CH-22

CH-52

CH-53

CH-54

CH-55

CH-56

CH-57

CH-59

CH-23

CH-25

CH-26

CH-34

CH-11

CH-30

CH-20

CH-21

CH-22

CH-52

CH-53

CH-54

CH-55

CH-56

CH-57

CH-59

CH-23

CH-26

CH-34

CH-11

CH-30

CH-20

CH-21

CH-25

CH-22

CH-52

CH-53

CH-54

CH-55

CH-56

CH-57

CH-59

CH-23

CH-27

CH-28

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Längste Kette aus einer Liste finden ?

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Längste Kette aus einer Liste finden ?

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread