Re: MSG.BOX
10.07.2002 21:50:14
Uwe
Danke PeterHat Prima geklappt..!!
noch eine Frage:
Diese Formel:
Sub Meldebox_spieltag1()
Dim Ergebnis
If [k4] > 3 And [k4] <> " " Then
Ergebnis = MsgBox("Spiel 1! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k4] < 1 Or [k4] = " " Then
Ergebnis = MsgBox("Spiel 1! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k5] > 3 And [k5] <> " " Then
Ergebnis = MsgBox("Spiel 2! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k5] < 1 Or [k5] = " " Then
Ergebnis = MsgBox("Spiel 2! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k6] > 3 And [k6] <> " " Then
Ergebnis = MsgBox("Spiel 3! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k6] < 1 Or [k6] = " " Then
Ergebnis = MsgBox("Spiel 3! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k7] > 3 And [k7] <> " " Then
Ergebnis = MsgBox("Spiel 4! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k7] < 1 Or [k7] = " " Then
Ergebnis = MsgBox("Spiel 4! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k8] > 3 And [k8] <> " " Then
Ergebnis = MsgBox("Spiel 5! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k8] < 1 Or [k8] = " " Then
Ergebnis = MsgBox("Spiel 5! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k9] > 3 And [k9] <> " " Then
Ergebnis = MsgBox("Spiel 6! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k9] < 1 Or [k9] = " " Then
Ergebnis = MsgBox("Spiel 6! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k10] > 3 And [k10] <> " " Then
Ergebnis = MsgBox("Spiel 7! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k10] < 1 Or [k10] = " " Then
Ergebnis = MsgBox("Spiel 7! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k11] > 3 And [k11] <> " " Then
Ergebnis = MsgBox("Spiel 8! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k11] < 1 Or [k11] = " " Then
Ergebnis = MsgBox("Spiel 8! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k12] > 3 And [k12] <> " " Then
Ergebnis = MsgBox("Spiel 9! - Nicht mehr als Faktor 3 eingeben, bitte prüfen! ")
f = 1
End If
If [k2] < 1 Or [k12] = " " Then
Ergebnis = MsgBox("Spiel 9! - Mindestfaktor = 1, bitte prüfen! ")
f = 1
End If
If [k13] < 0 Then
Ergebnis = MsgBox("Spieltag 1 - Nicht mehr als 20 Faktorenpunkte eingeben, bitte prüfen! ")
f = 1
End If
If f <> 1 Then
MsgBox ("Alle Faktoren sind OK!")
End If
End Sub
bezieht sich auf eine Faktoren Prüfung eines Spieltages..(Bundesliga)
Hier meine Frage ??
Kann man das automatisieren Das ich nicht ein Button klicken muss, und zwar für alle 34 Spieltage..
Die Felder gehen bis k408 mit jeweils 3 leer zellen nach jedem
Spieltag.