= Kombinationen (n;k) auch die "dazwischen"

Hallo Excel und VBA Freunde
Ich habe da ein grösseres Problem:
Ich sollte die Position einer Zahlenkette bestimmen.
Da die letzte Zahl (Z4) "nur" bis 25 geht, ist die mathematische bestimmung
sehr schwierig.
Bedingungen:
- Es kommt keine Zahl (Z1 bis Z4) doppelt vor (in der Zeile gesehen)
- Alle Zahlen (Z1 bis Z4) sind natürliche Zahlen
- Z1 = Z2 - 1 , Z2 = Z3 - 1 , Z3 = Z4 - 1
- DER MAXIMALWERT VON Z4 IST IMMER 25
Beispiel:
(Die linke Kette, sind die Zahlen Z1 bis Z4, im Format "00")
(Die rechte Zahl, ist das Ergebnis, bzw. die Position)
01020304 = 1
01020305 = 2
.
.
.
01020324 = 21
01020325 = 22
01020405 = 23
01020406 = 24
.
.
.
01020516 = 54
.
.
.
22232425 = 12650
Ich könnte eine Matrix erstellen, doch die Rechenzeit ist zu lange.
Ach ein VBA Projekt, das mir alle Positionen durchrechnet (Zähler) kommt leider auch nicht in frage.
Deswegen suche ich nach einer Funktion, Formel oder einem VBA Projekt.
Das Ziel ist die Eingabe der Kette, mit dem Resultat der Position.
Die Letzte Position lässt sich mit
= Kombinationen(25,4)
ermitteln.
Doch wie ist es mit allen anderen?
Kann mir da vielleicht jemand weiterhelfen?
mfG
Giuseppe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function mein_rang(a1%, a2%, a3%, a4%) As Double Application.Volatile mein_rang = 0 Do While (a1 > 0 And a1 < a2 And a2 < a3 And a3 < a4 And a4 <= 25) If a4 - a3 > 1 Then a4 = a4 - 1 ElseIf a3 - a2 > 1 Then a4 = 25 a3 = a3 - 1 ElseIf a2 - a1 > 1 Then a4 = 25 a3 = 24 a2 = a2 - 1 Else a4 = 25 a3 = 24 a2 = 23 a1 = a1 - 1 End If mein_rang = 1 + mein_rang Loop End Function

Sub mein_rang2() Dim a1 As Double, a2 As Double, a3 As Double, a4 As Double Dim mein_rang2 As Double a1 = 22 a2 = 23 a3 = 24 a4 = 25 Application.Volatile mein_rang2 = 0 Do While (a1 > 0 And a1 < a2 And a2 < a3 And a3 < a4 And a4 <= 25) If a4 - a3 > 1 Then a4 = a4 - 1 ElseIf a3 - a2 > 1 Then a4 = 25 a3 = a3 - 1 ElseIf a2 - a1 > 1 Then a4 = 25 a3 = 24 a2 = a2 - 1 Else a4 = 25 a3 = 24 a2 = 23 a1 = a1 - 1 End If mein_rang2 = 1 + mein_rang2 Loop MsgBox (mein_rang2) End Sub

Hallo Guiseppe,
binde doch einfach die ganze


Function ein und greife in deiner 

Sub auf die 

Function zu...
also ugf so:

Function mein_rang(...)...
End Function



Sub Deine_Sub
dim a1%, a2%, a3%, a4%, rang as double
... (hier stehen deine ganzen befehle einschließlich berechnung a1-a4)
rang=mein_rang(a1,a2,a3,a4)
End Sub

Beliebteste Forumthreads (12 Monate)

= Kombinationen (n;k) auch die "dazwischen"

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

= Kombinationen (n;k) auch die "dazwischen"

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread