Zahlenkombination

Forumthread: Zahlenkombination

Zahlenkombination

31.08.2008 16:29:00

Frank

Hallo Excelgemeinde,
komme irgendwie wieder nicht weiter.
Habe im Archiv was gefunden was nach meinen Vorgaben etwas umgestrickt werden müßte.
Es geht darum von einer Anzahl Zahlen alle möglichen Zahlenkombinationen auszugeben.
Bei dem untenstehenden Makro werden die Ausgangszahlen in Spalte A gesucht und alle zweier Kombinationen daneben in Spalte B und C ausgegeben.
Mein Problem ist nun dass sich meine Ausgangszahlen in Tabelle1 in Spalte A und B befinden und die Kombinationen in Tabelle2 Spalte A und B gelistet werden sollen.
Vielleicht kann mir jemand helfen.
Danke Frank


Sub permutation()
Dim sCnt, sIx1, sTo1, sIx2, sTo2 As Single
sCnt = 1
sTo2 = Application.WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
sTo1 = sTo2 - 1
For sIx1 = 1 To sTo1
For sIx2 = sIx1 + 1 To sTo2
ActiveSheet.Cells(sCnt, 2).Value = ActiveSheet.Cells(sIx1, 1).Value
ActiveSheet.Cells(sCnt, 3).Value = ActiveSheet.Cells(sIx2, 1).Value
sCnt = sCnt + 1
Next sIx2
Next sIx1
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahlenkombination

31.08.2008 18:38:03

Holger
AW: Zahlenkombination

01.09.2008 15:11:00

Frank
AW: Nachfrage und Lösungsvorschlag

04.09.2008 10:37:31

mpb

AW: Zahlenkombination

31.08.2008 18:38:03

Holger

Hallo Frank,
Ersetze
ActiveSheet.Cells(sCnt, 3).Value = ActiveSheet.Cells(sIx2, 1).Value
durch
Worksheets("Tabelle2").Cells(sCnt, 3).Value = ActiveSheet.Cells(sIx2, 1).Value
wenn "Tabelle2" der Name der Zieltabelle ist und das Makro auf Tabelle1 gestartet wird.
Gruß
Holger

AW: Zahlenkombination

01.09.2008 15:11:00

Frank

Hallo Holger,
Danke für Deine Antwort. Wie mache ich es aber, das es alle Zweierkombinationen auflistet wenn sich die zahlen nicht wie in dem beispiel in Spalte A sondern in Spalte A und B befinden.
Gruß Frank

AW: Nachfrage und Lösungsvorschlag

04.09.2008 10:37:31

mpb

Hallo Frank,
meinst Du so:
Tabelle1
A B
1 5
2 6
3 7
Ergebnis ins Tabelle2
A B
1 5
1 6
1 7
2 5
2 6
2 7
3 5
3 6
3 7
Dann z.B. so:


Sub Zahlenkombinationen()
Application.ScreenUpdating = False
Set Quelle = Worksheets("Tabelle1")
Set Ziel = Worksheets("Tabelle2")
z = Quelle.Range("A65536").End(xlUp).Row
x = 1
For i = 1 To z
For j = 1 To z
Ziel.Cells(x, 1) = Quelle.Cells(i, 1)
Ziel.Cells(x, 2) = Quelle.Cells(j, 2)
x = x + 1
Next j
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Martin

Beliebteste Forumthreads (12 Monate)

Forumthread: Zahlenkombination

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread