mit welchem Makro kann ich erreichen, dass durch Doppelklick in eine Zelle im Bereich C3:K33 ein "X" gesetzt wird und durch erneutes Doppelklicken wieder entfernt wird?
Gruß
mike49
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
Cancel = True
End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range ' Variable f?r Bereich
Dim RaZelle As Range ' Variable f?r Zelle
Set RaBereich = Range("C3:K33") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
If Target = "" Then
Target = "X"
Else
Target.ClearContents
End If
Cancel = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing ' Variable leeren
End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range ' Variable f?r Bereich
Dim RaZelle As Range ' Variable f?r Zelle
Set RaBereich = Range("C3:K33") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
If Target = "" Then
Target = "X"
Target.Interior.Color = 255
Else
Target.ClearContents
End If
Cancel = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing ' Variable leeren
End Sub
Private Sub CommandButton1_Click()
With ActiveCell
If .Column = 3 And .Row > 4 And .Row "K", "K", "")
.Font.Color = vbRed
End If
End With
End Sub
If Not Intersect(Range("C3:K33"), ActiveCell) Is Nothing Then
With ActiveCell
.Value = IIf(.Value "K", "K", "")
.Font.Color = vbRed
End With
End If
Gruß WernerPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C3:K33"), Target) Is Nothing Then
Cancel = True
Target.Value = IIf(Target.Value = "X", "", "X")
End If
End Sub
Gruß Werner