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"