Thema Datum  Von Nutzer Rating
Antwort
02.05.2011 13:36:19 Achim
NotSolved
02.05.2011 21:18:40 Till
NotSolved
Rot Alle Kombinationen mehrer Arrays mit Schleife wiedergeben
 02.05.2011 22:31:05 Gast80334
NotSolved

Ansicht des Beitrags:
Von:
Gast80334		 Datum:
02.05.2011 22:31:05		 Views:
1169		 Rating:
     
Antwort:
  Ja
Thema:
Alle Kombinationen mehrer Arrays mit Schleife wiedergeben

Versuch mal das hier:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Kombinationen()
     
    'dim
        Dim arr1() As Variant
        Dim a1&, a2&, a3&, k&, i&, c&
        Dim Vars(5) As Variant
     
    'set
        Vars(0) = "A"
        Vars(1) = "B"
        Vars(2) = "C"
        Vars(3) = "D"
        Vars(4) = "E"
        Vars(5) = "F"
         
        k = 5
        ReDim arr1((k + 1) ^ 3 - 1, 2)
     
    'kombinationen erstellen
        For a1 = 0 To k
            For a2 = 0 To k
                For a3 = 0 To k
             
                    arr1(i, 0) = a1
                    arr1(i, 1) = a2
                    arr1(i, 2) = a3
                 
                    i = i + 1
                     
                Next
            Next
        Next
     
    'variablen einsetzen
        For c = 0 To 2
            For i = 0 To UBound(arr1)
                arr1(i, c) = Vars(arr1(i, c))
            Next
        Next
         
    'daten übertrage
        Range(Cells(1, 1), Cells(UBound(arr1) + 1, UBound(arr1, 2) + 1)).Value = arr1
     
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.05.2011 13:36:19 Achim
NotSolved
02.05.2011 21:18:40 Till
NotSolved
Rot Alle Kombinationen mehrer Arrays mit Schleife wiedergeben
 02.05.2011 22:31:05 Gast80334
NotSolved