und erstmal vielen Dank an "Dr.". Du hast mir bei den Thema "Zellen als Scgaltflächen" sehr geholfen.
Der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = 1 Then
Target.Value = ""
Target.Interior.ColorIndex = 2
Else:
Target.Value = 1
Target.Interior.ColorIndex = 20
End If
End Sub
Funktioniert auch Super. Ein Problem bleibt trotzdem. Es soll nicht die ganze Tabelle mit Schaltflächen überzogen werden, sondern nur ein bestimmter Bereich.
Kann man den Bereich eingrenzen?
Dann habe ich noch eine zweite Frage: Es sollen Einträge oder Änderungen nur bis zu einen bestimmten Datum möglich sein. Also wenn z.b. die 29. KW am 24.7. endet. Dürfen ab den 25.7. keine Änderungen mehr möglich sein.
Vielen Dank.