Variablendeklaration

[Alfred_]

Hi,
je länger ich mich mit VB beschäftige umso interessanter wird es! Vor allen Dingen dann, wenn ich ein Excel-Makro umsetzen will.
Ich habe also ein funktionierendes Makro mit dem ich Kombinationen abklopfen kann. Ist relativ einfach. weil ich Variable den RangeObjekten zuordnen kann,
was bei VB leider nicht so einfach ist (und außerdem nicht meine Stärke ist :=)

Ich bin jetzt soweit, dass ich keine Fehlermeldung erhalte (Overflow etc.), aber....z.B. bei der Kombination Nr. 29, 57 etc. eine falsches Ergebnis erhalte (zur Orientierung habe ich die Kombinationsnummern "angehängt").

Sub KombiAuswerten()

Dim k(31), i%, y%
Dim a%, b%, c%
Dim n As Long

y = 0
For i = 1 To 30
y = y + 1
k(i) = y
Next i

n = 0
For a = 1 To i - 1
For b = 2 To i - (a - 1)
For c = 3 To i - (b - 2) - (a - 1)
n = n + 1
RTF2.Text = RTF2.Text & _
k(a) & "," & _
k(b + (a - 1)) & "," & _
k(c + ((b - 2) + (a - 1))) & "," & " " & Format(n, "##,##0") & vbCrLf
''Fortschrittsanzeige
'' Call ProcBarStarten
Next c
Next b
Next a
End Sub


Anmerkung:
Bei einer Kombination von 30 aus 3 erhalte ich 4060 Möglichkeiten

Wo mache ich etwas falsch?

Grüße Alfred

 

[Alfred_]

Hi,

Über "Try and Error" habe ich den Knoten gelöst!
Das ist die Lösung:

i = 0 'Zähler für AnzahlWerte

For y = 1 To 30
i = i + 1
k = i
Next y

Grüße Alfred