Kann man einen Zellenhintergrund mit Doppelklick farblich verändern?
Knut
Kann man einen Zellenhintergrund mit Doppelklick farblich verändern?
Knut
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$1" Then
Cancel = True
Target.Interior.ColorIndex = 3
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo
leg diesen Code in die entsprechende tabelle, müßte funzen.
Gruß Michi
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Select
With Selection.Interior
.ColorIndex = 6
End With
End Sub
Funktioniert leider nicht wenn die Zelle gespeert ist! Sorry hab ich vergessen zu sagen!
Knut
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$1" Then
ActiveSheet.Unprotect
Cancel = True
Target.Interior.ColorIndex = 3
ActiveSheet.Protect
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo
Es Funktioniert!
Mfg Knut
Leider funktioniert es nicht wenn ich den Schutz mit Passwort habe! Gibt es da noch eine Lösung?
Knut
ixch kann mich nur wiederholen. Wir sind hier im Forum keine Hellseher und heiligen Scheine haben hier auch nur wenige im Forum
schreibe ("Passwort") dahinter.
Gruß hajo
wenn Du schon mit dem BeforeDoubleClick-Ereignis arbeitest mach Dir die Sache einfacher:
Gruß
Peter