array zur erzeugung von schlüssel

hi leute,
ich hatte schonmal das problem hier geäußert kann den beitrag (und damit leider auch die lösung) im archiv nicht mehr finden.
ich habe 3 merkmale. diese merkmale haben unterschiedlich viele ausprägungen.
ich möchte jetzt gerne alle möglichen kombinationen der jeweiligen ausprägungen
bsp: merkmal1 (1,2,3,4,5)
merkmal2 (1,2,3)
merkmal3 (1,2,3,4)
merkmal1 merkmal2 merkmal3
1.....1.....1
1.....1.....2
1.....1.....3
1.....1.....4
1.....2.....1
1.....2.....2
1.....2.....3
1.....2.....4
1.....3.....1
1.....3.....2
1.....3.....3
1.....3.....4
2.....1.....1
2.....1.....2
2.....1.....3
2.....1.....4
2.....2.....1
2.....2.....2
2.....2.....3
2.....2.....4
2.....3.....1
2.....3.....2
2.....3.....3
2.....3.....4
3.....1.....1
3.....1.....2
3.....1.....3
3.....1.....4
3.....2.....1
3.....2.....2
3.....2.....3
3.....2.....4
3.....3.....1
3.....3.....2
3.....3.....3
3.....3.....4
und so weiter.
merkmal1 soll dabei in spalte a
merkmal2 soll in spalte b
merkmal c soll in spalte c
danke schonmal
mfg richi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kombinationen() Dim Jahr As Integer Dim Obergruppe As Integer Dim Sparte As Integer Dim Detail As Integer Dim Monat As Integer Dim varKombination Dim b As Integer, c As Integer, d As Integer Dim e As Integer Dim ws As Worksheets Jahr = Year(Now()) Obergruppe = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) Sparte = Array(1, 2, 3, 4) Detail = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) Monat = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12) For Each b In Monat For Each c In Obergruppe For Each d In Sparte For Each e In Detail varKombination = a & b & c & d & e Sheets("Cluster").Activate i = i + 1 ws("Cluster").Range("A" & i) = Jahr ws("Cluster").Range("B" & i) = b ws("Cluster").Range("C" & i) = c ws("Cluster").Range("D" & i) = d ws("Cluster").Range("E" & i) = e Next e Next d Next c Next b End Sub

Hi,
könnte etwas dauern und ggf übe 64000 Ergebnisse liefern,
wenn ja, dann wirst du auf nen Fehler laufen...
Wie gesagt, Access könnte auch mehr verdauen und wäre schneller beim generieren...


Sub Kombinationen()
Dim Jahr As Integer
Dim Obergruppe(8) As Integer
Dim Sparte(3) As Integer
Dim Detail(8) As Integer
Dim Monat(11) As Variant
Dim varKombination
Dim b As Integer, c As Integer, d As Integer
Dim e As Integer
Dim ws As Worksheet
Dim i As Long
Jahr = Year(Now())
For i = 1 To 9
Obergruppe(i - 1) = i
Detail(i - 1) = i
Next
For i = 1 To 4
Sparte(i - 1) = i
Next
For i = 1 To 12
Monat(i - 1) = i
Next
i = 1
Set ws = Worksheets("Cluster")
With Application
.EnableEvents = False
.ScreenUpdating = False
For b = 0 To UBound(Monat)
For c = 0 To UBound(Obergruppe)
For d = 0 To UBound(Sparte)
For e = 0 To UBound(Detail)
varKombination = a & b & c & d & e
i = i + 1
With ws
Cells(i, 1) = Jahr
Cells(i, 2) = b
Cells(i, 3) = c
Cells(i, 4) = d
Cells(i, 5) = e
End With
Next e
Next d
Next c
Next b
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Bye
Nike

Sub Kombinationen() Dim Jahr As String Dim Obergruppe Dim Sparte Dim Detail Dim Monat Dim varKombination Dim b, c, d, e Jahr = Year(Now()) Obergruppe = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) Sparte = Array(1, 2, 3, 4) Detail = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For Each c In Obergruppe For Each d In Sparte For Each e In Detail varKombination = a & b & c & d & e Worksheets(Jahr).Activate i = i + 1 Worksheets(Jahr).Range("A" & i) = Jahr Worksheets(Jahr).Range("B" & i) = c Worksheets(Jahr).Range("C" & i) = d Worksheets(Jahr).Range("D" & i) = e Next e Next d Next c End Sub

Beliebteste Forumthreads (12 Monate)

array zur erzeugung von schlüssel

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread