bin im Forum/Recherche zwar fündig geworden, müsste den code aber noch anpassen.
Wenn ich in die Zellen E6 bis E10 einen Eintrag vornehmen möchte, dann soll dies
nur gehen, wenn in der Zeile oberhalb ein Wert zwischen 0,1 und 15 steht.
Derzeitiger Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Range("E5:E10")
If Target.Cells(-1, 0).Value < 0.1 Or Value > 15 Then
MsgBox "In der Zelle oberhalb muss ein Wert zwischen 0,1 und 15 stehen!", 16, "Warnung"
Else
Exit Sub
End If
Next
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de