Auswertung

Bild

Betrifft: Auswertung von: Molle
Geschrieben am: 23.03.2005 21:27:05

Einen schönen guten Abend
Ich habe den Text in das Tabellenblatt geschrieben vieleicht wird
es dann besser verstanden.
mfg Molle
https://www.herber.de/bbs/user/20106.xls

Bild


Betrifft: AW: Auswertung von: th.heinrich
Geschrieben am: 23.03.2005 21:36:37

sers Molle,

schau mal hier rein

http://www.excel-center.de/foren/msg-1110

ansonsten https://www.herber.de/ssearch.html

suchbegriff lotto

gruss thomas


Bild


Betrifft: AW: Auswertung von: Molle
Geschrieben am: 23.03.2005 21:53:50

Hallo Thomas kann kein Passentes beispie finden.
mfg Molle


Bild


Betrifft: AW: Auswertung von: Molle
Geschrieben am: 23.03.2005 21:57:42

Kann kein Passentes beisbiel finden.
mfg Molle


Bild


Betrifft: AW: Auswertung von: Sigi
Geschrieben am: 23.03.2005 22:36:50

Hallo Molle,

darf es auch eine VBA-Funktion sein (allerdings ohne Auswertung der Superzahl) ...

Function LottoAuswertung(Lotto6Bereich As Range, ZusatzZahl As Long, _
                        Tipps6Bereich As Range) As String
Dim Tipp As Range
Dim Lotto As Range
Dim IstZusatz As Boolean
Dim Treffer As Long
Dim Text As String
Dim LottoOK As Boolean
Dim TippsOK As Boolean
    Application.Volatile
    TippsOK = True
    For Each Tipp In Tipps6Bereich
        If Tipp.Value > 49 Or Tipp.Value < 1 Or _
                    Tipp.Value <> Int(Tipp.Value) Then
            TippsOK = False
            Exit For
        End If
    Next Tipp
    LottoOK = True
    For Each Lotto In Lotto6Bereich
        If Lotto.Value > 49 Or Lotto.Value < 1 Or _
                    Lotto.Value <> Int(Lotto.Value) Then
            LottoOK = False
            Exit For
        End If
    Next Lotto
    If ZusatzZahl > 49 Or ZusatzZahl < 1 Or _
                ZusatzZahl <> Int(ZusatzZahl) Then
        LottoOK = False
    End If
    If TippsOK And LottoOK Then
        For Each Tipp In Tipps6Bereich
            For Each Lotto In Lotto6Bereich
                If Tipp.Value = Lotto.Value Then
                    Treffer = Treffer + 1
                End If
            Next Lotto
        Next Tipp
        If Treffer > 2 Then
            For Each Tipp In Tipps6Bereich
                If Tipp.Value = ZusatzZahl Then
                    IstZusatz = True
                    Exit For
                End If
            Next Tipp
            Text = CStr(Treffer) & " Richtige"
            If IstZusatz Then
                Text = Text & " mit Zusatzzahl"
            End If
        Else
            Text = ""
        End If
    Else
        Text = "'Wert!"
    End If
LottoAuswertung = Text
End Function

Gruß
Sigi


Bild


Betrifft: AW: Auswertung von: Molle
Geschrieben am: 24.03.2005 23:39:40

Hallo Sigi Leider weis ich nicht was ich mit den Code Anfagen soll,da
ich wennig Erfahrung mit VBA habe.Vieleicht kannst du mein Beispiel von
der Tabelle nachvollziehen die ich Hochgeladen habe.
Ich würde mich sehr freuen.
mfg Wolfgang


Bild


Betrifft: AW: Auswertung von: Sigi
Geschrieben am: 25.03.2005 21:42:06

Hallo Wolfgang,

die VBA-Funktion kannst du wie eine Excel-Funktion in der Tabelle verwenden.
Siehe Beispiel ...

https://www.herber.de/bbs/user/20169.xls

Gruß
Sigi


Bild


Betrifft: AW: Auswertung Danke Sigi habe Verstanden von: Molle
Geschrieben am: 25.03.2005 23:54:31

Alles Klar werde Morgen den den Code einfügen.Muß mein Programm noch etwas
umschreiben


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Auswertung"