title image


Smiley Ausgabe ohne Permutationen

Hallo,                                                                                                                                                                                                                                                                     

wie kann man Permutationen in der Ausgabe vermeiden?

hier ein Beispiel:

Sub Test1605016

Dim a,b,c,p,z%

p=Array(1,2,3,4,10,11)

For Each a In p

  For Each b In p

      For Each c In p

      If a+b+c=16 Then

z=z+1: Cells(z,1)=a: Cells(z,2)=b: Cells(z,3)=c: End If: Next: Next: Next a

End Sub

In der Ausgabe gibt es 18 Ergebnisse, davon sind nur 3 relevant(1,4,11;  2,3,11;  2,4,10). Der Rest sind Permutationen der 3 Ergebnisse. Wie kann man das so programmieren, dass keine Permutationen ausgegeben werden? Z.B. mit New Collection. Übrigens, wie kann man hier ein Makro korrekt formatieren?

VG  esqu

 

 

 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: