title image


Smiley Ausgabe ohne Permutationen

Hi esqu,

 

probiere es mal mit diesem Code :

Sub Test15022017()

    Dim a, b, c, p, z%

 

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

 

    For Each a In p

        For Each b In p

            If a <= b Then

                For Each c In p

                    If b <= c Then

                        If a + b + c = 16 Then

                            z = z + 1

                            Cells(z, 1) = a

                            Cells(z, 2) = b

                            Cells(z, 3) = c

                        End If

                    End If

                Next

            End If

        Next

    Next a

End Sub

 

Damit wird dann auch 3-3-10 ausgegeben. Wenn das nicht erwünscht ist, dann entferne das = Zeichen in den beiden IF-Anweisungen !

 

Gruß, NoNet


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: