Kombinationen erstellen

Forumthread: Kombinationen erstellen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kombinationen erstellen

09.03.2005 22:28:10

tobstein

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kombinationen erstellen

09.03.2005 22:53:51

PeterW
AW: Kombinationen erstellen

09.03.2005 23:02:40

tobstein

AW: Kombinationen erstellen

09.03.2005 22:53:51

PeterW

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

AW: Kombinationen erstellen

09.03.2005 23:02:40

tobstein

Hallo Peter,
vielen Dank...hat funktioniert.
tobstein