Office: (Office 2019) Bitte um Hilfe bei erstellung eines Makros, chat GPT hängt sich auf

Hallo Bitte kann mir jemand helfen ich bräuchte ein Makro welches mir eine Liste erstellt aus der Zahlenkombination 0-6.
beginnt soll beginnen mit 0 0 0 0 0 0 0 dann 0 0 0 0 0 0 1 aber auch diese Kombination sollte nicht Fehlen 0 0 0 0 0 0 1 0 unsw. Sozusagen eine URNE mit zurücklegen nach jeder Ziehung.

Gebraucht wird dieses Makro die Liste dafür um für jede einzelne Stellung der Zahlen einen eigenen Wert zu erstellen welcher sich NICHT aus der Quersumme ergibt, das würde ich dann selber können.

Meine anfrage bei Chat gpt war diese
erstelle bitte ein Macro für excel welches mir eine Liste mit allen Kombinationen von 0-6 erstellt jede Kombination mit rücklegen soll dabei sein.

die Antwort leider Jene

• 
  
  
  • Something went wrong
  
  
  leider auch das Selbe bei dieser anfrage
  erstelle ein Makro für excel welche alle Kombinationen von 0 bis 6 erstellt beginnt mit 0, 0, 0, 0, 0, 0, 0
  

 

Moin

Der Bing Chatbot meint dazu:

Hier ist ein VBA-Makro, das alle Kombinationen von 0-6 mit Wiederholungen erstellt und in einer Excel-Tabelle ausgibt:

Code:

Sub GenerateCombinations()
    Dim i As Integer, j As Integer, k As Integer
    Dim lRow As Long
    lRow = 1
    For i = 0 To 6
        For j = 0 To 6
            For k = 0 To 6
                Cells(lRow, 1) = i
                Cells(lRow, 2) = j
                Cells(lRow, 3) = k
                lRow = lRow + 1
            Next k
        Next j
    Next i
End Sub

Dieses Makro erstellt eine Liste aller Kombinationen von drei Zahlen von 0 bis 6 mit Wiederholungen. Sie können es anpassen, indem Sie die Anzahl der Schleifen und die Bereichsgrenzen ändern, um verschiedene Kombinationslängen und Zahlenbereiche zu generieren. Um das Makro auszuführen, fügen Sie es in ein VBA-Modul in Ihrer Excel-Arbeitsmappe ein und führen Sie es aus.

Quelle: Unterhaltung mit Bing, 1.7.2023
(1) Excel VBA macro to generate a list of possible combinations. Excel VBA macro to generate a list of possible combinations.
(2) Combination Algorithm in Excel VBA - Stack Overflow. Combination Algorithm in Excel VBA.
(3) microsoft excel - how to generate all possibilities of combination for .... how to generate all possibilities of combination for a set of number or range?.

 

hallo DL_ PowerQuery Guru
hmmm es würde wie du es hier eingebracht hast durchaus laufen
habe es allerdings bereits für mein Vorhaben geändert -

Sub GenerateCombinations()
Dim i As Integer, j As Integer, k As Integer
Dim lRow As Long
lRow = 1
For i = 0 To 7
For j = 0 To 7
For k = 0 To 7
For l = 0 To 7
For m = 0 To 7
For n = 0 To 7
For o = 0 To 7
Cells(lRow, 1) = i
Cells(lRow, 2) = j
Cells(lRow, 3) = k
Cells(lRow, 4) = l
Cells(lRow, 5) = m
Cells(lRow, 6) = n
Cells(lRow, 7) = o

lRow = lRow + 1
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Sub

Der PC dreht dreht dreht - und liefert nix also Keine Rückmeldung wo hab ich da einen Hund Eingebracht bitte?
achs o sehe gerad oben in der code zeile lol .. ausgebessert . > dreht aber dennoch und dennoch nur im Kreis ein Fehler muss noch sein im Code den mit Rücklegen sollten es maximal 1716 Kombi sein

 

sorry denke habe ich gefunden bei code zeile 1 muss ich jetzt ändern ...danke für die Hilfe ...

 

Hallo,

das Problem scheint mir zu sein, dass es für LRow keine Ausstiegsbedingung gibt.

 

hallo trotz Änderung Chaos ...
Sub GenerateCombinations()
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer
Dim lRow As Long
lRow = 1
For i = 0 To 7
For j = 0 To 7
For k = 0 To 7
For l = 0 To 7
For m = 0 To 7
For n = 0 To 7
For o = 0 To 7
Cells(lRow, 1) = i
Cells(lRow, 2) = j
Cells(lRow, 3) = k
Cells(lRow, 4) = l
Cells(lRow, 5) = m
Cells(lRow, 6) = n
Cells(lRow, 7) = o

lRow = lRow + 1
Next o
Next n
Next m
Next l
Next k
Next j
Next i
End Sub

dachte so klappt es - dachte ich mir geht aber nicht

 

hallo KLAUS Dieter ... wie wäre das zu formulieren
Do While i < 1716
.....
Exit Do
End If
....
...
Loop
End sub wäre das richtig oder bin ich da am Falschen Dampfer ( muss leider vom PC mal weg )

 

Moin,

dein Denkfehler liegt in der Anzahl der Kombinationen.
Es sind nämlich nicht nur 1.716 Kombis, sondern 8^7 (=2.097.152) Kombis.

 

Hallo schatzi @ naja Kombinationen 2 sagt
"=KOMBINATIONEN2(7;7)"
1716
dann frag ich mich warum Excel Kombinationen2 mit Zugrücklegen auf das Ergebnis- kommt
wie kommst du auf 8hoch7 ? ah eh wieder einen fehler entdeckt ... nicht 7 sondern 6
For i = 0 To 6 unsw ....

 

Moin,

jedes Element kann 8 Zustände annehmen: 0,1,2,3,4,5,6 und 7.
Du hast 7 Elemente: i, j, k, l, m, n und o.
Das ergibt (mit zurücklegen) 8 hoch 7 Möglichkeiten.

 

ja die 7 war schon mal der Fehler ... sondern 0-6 sind 7 Zahlen das war ein Stolperer, danke vorab. dennoch komme ich mit dem code nun auf 823543 Kombinationen - das war es es funzt jetzt allerdings ist mir das dennoch zu viel , werde es noch abändern, Thema ist erledigt danke.