Kombinationen aus der Hälfte der Zellen

Hallo alle zusammen, ich hoffe es kann mir jemand helfen.
Ich bitte euch, mir zwei Formeln zu geben, mit denen ich durch kopieren dieser folgendes erreichen kann.
Ich hänge eine Datei mit 42 Orten im Raum Berlin an.
Ich suche 2 Formeln die durch kopieren knapp die Hälfte der 1764 (42²) möglihen Verbindungen zwischen zwei Orten ausgibt.
Nicht ausgegeben werden sollen:
1. die Verbindungen zwischen identischen Städten, wodurch 84 Verbindungen wegfallen also noch 1680 übrigbleiben.
2. ich benötige auch keine doppelten Verbindungen in der Liste, wie z.B. Berlin - Potsdam und dann irgendwann nochmal Potsdam - Berlin, eine davon reicht, sodass nochmal die Hälfte wegfällt und damit noch 840 Verbindungen übrig bleiben, die dann durch die Formeln ausgegeben werden sollen.
Hat da jemand eine Idee?
Liebe Grüße
Jenny
https://www.herber.de/bbs/user/85810.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ich komme auf 862 Verbindungen. Lasse einmal dieses Script laufen:
Option Explicit Sub MacheKombinationen() Const ErsteZeile As Long = 1 Const InSpalte As Long = 1 Dim lRow As Long Dim RowAusgabe As Long Dim rInnen As Range Dim rAussen As Range RowAusgabe = 1 With ActiveSheet .Cells(1, 2).EntireColumn.ClearContents lRow = .Cells(.Rows.Count, InSpalte).End(xlUp).Row For Each rAussen In .Range(.Cells(ErsteZeile, InSpalte), .Cells(lRow, InSpalte)) For Each rInnen In .Range(.Cells(rAussen.Row + 1, InSpalte), .Cells(lRow, InSpalte)) .Cells(RowAusgabe, 2).Value = rAussen.Value & " - " & rInnen.Value RowAusgabe = RowAusgabe + 1 Next rInnen Next rAussen End With End Sub Per Formel sehe ICH keine Möglichkeit, lasse mich von unseren Matrix-Gurus aber gerne eines besseren belehren!
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	Bad Freienwalde		Bad Freienwalde	Baruth/Mark
2	Baruth/Mark		Bad Freienwalde	Berlin
3	Berlin		Bad Freienwalde	Bernau
4	Bernau		Bad Freienwalde	Brandenburg
5	Brandenburg		Bad Freienwalde	Cottbus
6	Cottbus		Bad Freienwalde	Dessau
7	Dessau		Bad Freienwalde	Eberswalde
8	Eberswalde		Bad Freienwalde	Eisenhüttenstadt
9	Eisenhüttenstadt		Bad Freienwalde	Forst (Lausitz)

Zelle	Formel
C1	=A1
D1	=A2
C2	=WENN(ZÄHLENWENN(C$1:C1;C1)<42-VERGLEICH(C1;A:A;);C1;INDEX(A:A;VERGLEICH(C1;A:A;)+1))
D2	=WENN(C2=C1;INDEX(A:A;VERGLEICH(D1;A:A;)+1);INDEX(A:A;VERGLEICH(C2;A:A;)+1))

	A	B	C	D
1	Bad Freienwalde		Bad Freienwalde	Wriezen
2	Baruth/Mark		Bad Freienwalde	Baruth/Mark
3	Berlin		Bad Freienwalde	Berlin
4	Bernau		Bad Freienwalde	Bernau
5	Brandenburg		Bad Freienwalde	Brandenburg
6	Cottbus		Bad Freienwalde	Cottbus
7	Dessau		Bad Freienwalde	Dessau

Kombinationen aus der Hälfte der Zellen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread