habe mit Hilfe des Forums folgenden Code fertiggstellt. Nun geht es noch darum,
dass im 2. Teil nach einer eingabe einer falschen Zahl (z.B.: 3) diese Zahl in
der eingegebenen Zelle wieder entfernt wird:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 And Target.Row > 4 And Target.Row < 19 Then
Select Case Target.Value
Case 6.5, 7.25, 7.5, 8.5, 14
Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Interior.ColorIndex = 6
Case Is <> ""
Range(Cells(Target.Row, 1), Cells(Target.Row, 2)).Interior.ColorIndex = 15
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
If Target.Column = 3 And Target.Row > 4 And Target.Row < 19 Then
Select Case Target.Value
Case Is <> "", 2.5, 5, 7.5, 10, 12.5, 15
MsgBox "Eintrag nicht zulässig"
End Select
End If
'''''''? Zahl 3 in der eingegebenen Zelle löschen ?
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