MsgBox / Zelladressen / Lottoauswertung?
Erich
habe eine Datei mit der ich meine (noch) bescheidenen Lottogewinne auswerte.
In dem "Gewinnblatt" habe ich einen Code hinterlegt, der mir mit MsgBox
(bei Aktivierung des Blatts) anzeigt, dass ein Gewinn nocht nicht eingetragen
ist.
Wie kann ich die MsgBox um die Zelladressen erweitern, in denen er die
"fehlenden Gewinne" findet:
Gewinne | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
In die Spalten G und K werden die Gewinne eingetragen; eine Spalte vorher
ist der Einsatz.
Derzeitiger - funktionierender - Code:
Option Explicit
Sub Fehlanzeige()
For r = 3 To 108
If Cells(r, 5) > "2" And Cells(r, 7) < "0,01" Or Cells(r, 9) > "2" And Cells(r, 11) < "0,01" Or _
Cells(r, 13) > "2" And Cells(r, 15) < "0,01" Or Cells(r, 17) > "2" And Cells(r, 19) < "0,01" Then
MsgBox "Gewinn fehlt" ' Hier sollte ergänzt werden, welche Zellen dies betrifft?
End If
Next r
End Sub
Besten Dank für eine Hilfe!
mfg
Erich