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

Beiträge aus den Excel-Beispielen zum Thema "Kombinationen erstellen"