Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswertung

Auswertung
23.03.2005 21:27:05
Molle
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswertung
23.03.2005 21:53:50
Molle
Hallo Thomas kann kein Passentes beispie finden.
mfg Molle
AW: Auswertung
23.03.2005 21:57:42
Molle
Kann kein Passentes beisbiel finden.
mfg Molle
AW: Auswertung
23.03.2005 22:36:50
Sigi
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
Anzeige
AW: Auswertung
24.03.2005 23:39:40
Molle
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
AW: Auswertung
25.03.2005 21:42:06
Sigi
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
AW: Auswertung Danke Sigi habe Verstanden
25.03.2005 23:54:31
Molle
Alles Klar werde Morgen den den Code einfügen.Muß mein Programm noch etwas
umschreiben

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige