Guten Abend :)
Folgende Situation: In meinen Zellbereich können einzelne Zellen via Doppelklick mit grünen Hintergrund markiert/demarkiert werden.
Wenn nun eine bestimmte Anzahl an grün markierten Zellen erreicht ist, soll eine Fehlermeldung erscheinen und die letzte grün markierte Zelle wieder den Standard-Hintergrund haben.
Mit Application.Undo funktioniert es leider nicht. Nun habe ich es folgend probiert, geht aber auch nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Summe As Integer
For Each Zelle In Range("WahlEinbringung")
If Zelle.Interior.Color = vbGreen Then
Summe = Summe + 1
End If
Next Zelle
If Summe > 14 Then
Range("WahlEinbringung").SpecialCells(xlCellTypeLastCell).Select
Selection.Interior.Color = xlNone
MsgBox "Es müssen 14 Punkte eingebracht werden.", vbOKOnly + vbCritical, "Fehler"
End If
End Sub
|