VBA - Excel Eingabe in Zelle verhindern wenn .....
23.08.2013 22:02:59
Filippo
meine Funktion bewirkt im Moment folgendes:
sobald ich eine "x" in einer Zelle in den gegebene Bereich eingebe, wird diese Zelle Rot markiert un den counter hochgezählt.
Ich möchte nun verhindern dass man mehr als einmal in die gleiche Zelle eine "x" schreiben kann und wenn der counter z.B. auf 10 steht dann es soll keine Eingabe mehr möglich sein.
Ich bekomme es einfach nicht hin...
Hier mein code in VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
Set Target = Intersect(Target, Range("B2:U21"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
If rngCell.Value = "x" Then
bytColor = 3
count = count + 1
Cells(23, 2).Value = count
rngCell.Locked = True
End If
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Danke vielmals für eure hilfe!!!
Anzeige