title image


Smiley Re: Lottozahlenauswertung - Problem mit Array`s
hi

ich habe mal alles umgearbeitet



Tabelle: Auswertung ABCDEFGHI1114243033222  2         3         4         5         6144230322  3 :Richtige7167144417  2 :Richtige879284422  1 :Richtige911424303322  6 :Richtige10252630282936  1 :Richtige111142430222  5 :Richtige+ZZ



brauchst nurmehr anpassen





      

Sub ZiehungsTrefferErmitteln()

Dim lottozahlen(1 To 7) As Integer

Dim i As Integer, j As Integer, richtige As Integer, zeile As Integer, zz As Byte



zeile = 6

Sheets("Auswertung").Activate

Columns("I:I").ClearContents

Cells.ClearFormats

For i = 1 To 7

    lottozahlen(i) = Sheets("Auswertung").Cells(1, i)

Next i

Do

    For i = 1 To 6

        If Cells(zeile, i).Value = lottozahlen(7) Then

            zz = 1

            Cells(zeile, i).Interior.ColorIndex = 7

        End If

        For j = 1 To 6

            If Cells(zeile, j) = lottozahlen(i) Then

                richtige = richtige + 1

                Cells(zeile, j).Interior.ColorIndex = 3

            End If

        Next

    Next

If richtige = 5 And zz = 1 Then

    Cells(zeile, 9).Value = "5 :Richtige+ZZ"

Else

    Cells(zeile, 9).Value = richtige & " :Richtige"

End If

zz = 0

richtige = 0

zeile = zeile + 1

Loop While Cells(zeile, 1) <> ""

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0







so in der art oder?


Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: