Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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
Anzeige
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

Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige