Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle möglichen Kombinationen ohne Doppelte

Alle möglichen Kombinationen ohne Doppelte
23.05.2006 21:48:33
Dirk
Hallo,
ich möchte aus einer variabelen Anzahl von Werten in einer Spalte (Zahlen oder Buchstaben bzw. Kombinationen) mir in zwei Spalten alle möglichen Kombinatinen Anzeigen lassen. Die Werte in der Ausgangsspalte kommen nicht doppelt vor. Soweit wurde das hier im Forum ja schonmal beantwortet. Mein Problem ist nur das mir die Reihenfolge egal ist. Als Beispiel:
A
B
C
D
in Spalte A soll in Spalte B und C liefern:
A B
A C
A D
B C
B D
C D
Dir Kombination A B ist für mich also identisch mit B A. Hat dazu eine(r) eine Idee?
Besten Dank schonmal.
Dirk
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Permutationen ohne "Doppelte"
23.05.2006 22:27:11
EtoPHG
Hallo Dirk,
Vielleicht nicht ganz so in der Darstellung, aber die Formel in B1 lässt sich dafür in belieber Zeile und Spalte kopieren.
https://www.herber.de/bbs/user/33877.xls
Gruss Hansueli
AW: Permutationen ohne "Doppelte"
23.05.2006 22:48:14
Dirk
Hallo Hansueli,
danke erstmal. Dein Vorschlag hilft mir leider wenig weiter da das ganze Teil eines Makros werden soll mit dem ich per Excel Befehle an ein anderes Programm (R) geben will ohne immer jede Zeile neu schreiben zu müssen.
Anzeige
AW: Permutationen ohne "Doppelte"
24.05.2006 00:14:35
EtoPHG
Hallo Dirk,
Dann probiers mal mit diesem Makro:

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

Gruss Hansueli
Anzeige
AW: Permutationen ohne "Doppelte"
24.05.2006 10:57:01
Dirk
Hallo Hansueli,
danke! Das ist genau wie ich mir das vorgestellt habe.
Grüße
Dirk
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Alle möglichen Kombinationen in Excel auflisten


Schritt-für-Schritt-Anleitung

Um alle möglichen Kombinationen ohne Doppelte in Excel aufzulisten, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und erstelle eine neue Arbeitsmappe.
  2. Gib deine Werte in Spalte A ein. Zum Beispiel:
    A
    B
    C
    D
  3. Öffne den VBA-Editor mit ALT + F11.
  4. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (dein Dokument)" > Einfügen > Modul.
  5. Kopiere den folgenden Code in das Modul:
    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
  6. Schließe den VBA-Editor und gehe zurück zu Excel.
  7. Führe das Makro aus: Gehe zu Entwicklertools > Makros > wähle permutation und klicke auf Ausführen.

Jetzt sollten in den Spalten B und C alle möglichen Kombinationen aufgelistet sein.


Häufige Fehler und Lösungen

  • Fehler: "Typenübereinstimmung"

    • Lösung: Stelle sicher, dass alle Daten in Spalte A vom gleichen Typ sind (z.B. nur Zahlen oder nur Buchstaben).
  • Fehler: Das Makro funktioniert nicht wie erwartet

    • Lösung: Überprüfe, ob du die Werte in Spalte A korrekt eingegeben hast und die Zellen nicht leer sind.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch die Funktion KOMBINATIONEN in Excel verwenden, um die Anzahl der möglichen Kombinationen zu ermitteln.

Um alle Kombinationen aus 2 Spalten manuell aufzulisten, kannst du die Daten in einer Hilfsspalte kombinieren, jedoch wird dies schnell unübersichtlich.


Praktische Beispiele

Beispiel für Kombinationen aus 3 Zahlen: Angenommen, du hast die Zahlen 1, 2 und 3 in Spalte A. Das Makro wird die folgenden Kombinationen erzeugen:

1   2
1   3
2   3

Beispiel für Kombinationen aus Buchstaben: Wenn du die Buchstaben A, B, C in Spalte A eingibst, erhältst du:

A   B
A   C
B   C

Tipps für Profis

  • Wenn du komplexere Kombinationen benötigst, zum Beispiel aus mehr als 3 Spalten, kannst du das Makro anpassen, indem du zusätzliche Schleifen hinzufügst.
  • Experimentiere mit der KOMBINATIONEN-Funktion, um die Anzahl der möglichen Kombinationen aus einer bestimmten Anzahl von Werten zu berechnen.
  • Für große Datenmengen kann ein optimiertes Makro die Performance erheblich steigern.

FAQ: Häufige Fragen

1. Kann ich das Makro auch für mehr als 2 Spalten verwenden? Ja, du kannst das Makro anpassen, um Kombinationen aus mehreren Spalten zu erzeugen.

2. Welche Excel-Version benötige ich für das Makro? Das Makro funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und höher.

3. Wie kann ich die Ausgabe formatieren? Du kannst die Formatierung der Zellen in Excel nach dem Ausführen des Makros anpassen, um die Lesbarkeit zu verbessern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige