Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Algorithmus für eine Kombination
Normale Version: Algorithmus für eine Kombination
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Maaxx

15.01.2019, 09:57
Hallo zusammen,
 
ich habe folgendes Problem und zwar ich möchte in Excel ein Algorithmus mit Makro oder ohne entwerfen für eine Kombination aus 4 Zahlen.
Z.B.  ich habe folgende Zahlen 1, 13, 16, 20 ich muss rausfinden alle Kombinationen aber die Zahlen dürfen nur einmal vorkommen und die 1 bleibt konstant.
Hat jemand eine Idee wie soll ich an diese Aufgabe am besten herangehen? Ich stehe irgendwie auf dem Schlauch, kann mir jemand helfen?
 
Danke und LG
Max   
 

Klaus-Dieter

15.01.2019, 10:00
Hallo Max,

die Forensoftware ermöglicht eine noch kleinere Schrift, als die, die du verwendest.

Maaxx

15.01.2019, 10:29
Hallo Klaus-Dieter,

danke für schnelle Antwort, kannst Du mir bitte ein Link schicken wo ich sie finde?

LG
Max

mmat

15.01.2019, 11:34
Code:
Option Explicit
Option Base 1
Dim a, b() As Long, ub As Long

Sub kombi(p As Long, r As Long)
Dim n As Long, i As Long, skip As Boolean
 
 If (p > ub) Then
   For i = 1 To ub: Cells(r, i) = a(b(i)): Next
   r = r + 1
   Exit Sub
 End If
 
 For n = 1 To ub
   skip = False
   For i = 1 To p - 1
     If b(i) = n Then skip = True: Exit For
   Next
     
   If Not (skip) Then
     b(p) = n
     kombi p + 1, r
   End If
 Next
End Sub

Sub start()
Dim n As Long, r As Long
 Cells.ClearContents
 a = Array(1, 13, 16, 20)

 ub = UBound(a)
 ReDim b(ub)
 r = 1
 kombi 1, 1
End Sub

So geht das

Maaxx

15.01.2019, 13:10
Danke! Teste heute Abend. 

LG
Max
Clever-Excel-Forum > Office-Anwendungen > Excel > Algorithmus für eine Kombination