wie kann ich durch einen Doppleklick ein x in eine Zelle schreiben?
Vorher hat mir Bertram gezeigt wie ich durch klicken die Zelle grün machen kann.
Was muss ich in folgendem Code ändern um die Zelle nicht mehr grün zu machen sondern ein x zu setzen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:AS149")) Is Nothing Then
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 4
Case Is = 4
Target.Interior.ColorIndex = xlNone
End Select
Cancel = True
End If
End Sub
Gruß und Dank
Alex