Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If ActiveCell.Range = "A1" Then
Selection.Interior.ColorIndex = 35
End If
End Sub
bringt er mir aber den Fehler das
"Argument ist nicht optional"
Bin mal wieder überfordert
danke schonmal
Gruß
Tobi