Herbers Excel-Forum - das Archiv

Kombinationen erstellen

Bild

Betrifft: Kombinationen erstellen
von: tobstein

Geschrieben am: 09.03.2005 21:28:10
Hallo,
ich benötige Eure Hilfe und zwar möchte ich mit einer Formel/einem Makro ???
Kombinationen erstellen und die sollen wie folgt aussehen:
Die Kombinationen sollen so aussehen
009
108
207
usw usf
und war alle 3er-Kombis, deren Summe 9 ergeben...also von 009 bis 900...
wie kann man das schaffen?
gruß und dank
tobstein
Bild

Betrifft: AW: Kombinationen erstellen
von: PeterW

Geschrieben am: 09.03.2005 21:53:51
Hallo Tobstein,
das könnte folgendes kleine Makro erledigen:
Sub Neuner()
Dim i3 As Integer, i2 As Integer, i1 As Integer
Dim lgRow As Long
For i3 = 0 To 9
For i2 = 0 To 9
For i1 = 0 To 9
If i1 + i2 + i3 = 9 Then
lgRow = lgRow + 1
Cells(lgRow, 1) = i3 & i2 & i1
End If
Next
Next
Next
End Sub

Gruß
Peter
Bild

Betrifft: AW: Kombinationen erstellen
von: tobstein
Geschrieben am: 09.03.2005 22:02:40
Hallo Peter,
vielen Dank...hat funktioniert.

tobstein
 Bild
Excel-Beispiele zum Thema "Kombinationen erstellen"
Listung der mit der Formel KOMBINATIONEN() ermittelten Elemente Festlegung von Farkombinationen durch ScrollBars
Bei falscher Eingabe alten Wert wiederherstellen Automatisch Sicherungsdatei erstellen
Eigene Menüleiste mit Untermenüs erstellen Arbeitsmappen-History erstellen
Per VBA einen Verweis zu einer *.DLL erstellen Startansicht wiederherstellen
Aus AddIn neue Arbeitsmappe mit Code erstellen Benutzerdefinierte Funktion durch Code erstellen und löschen