Beste helper,
Ik heb een stukje VBA Code wat ervoor moet zorgen dat de cel waarop ik dubbel klik zwart wordt gemaakt indien dit nog niet het geval is. Ik krijg echter een foutmelding en kom er niet aan uit waarom.
Ik heb een stukje VBA Code wat ervoor moet zorgen dat de cel waarop ik dubbel klik zwart wordt gemaakt indien dit nog niet het geval is. Ik krijg echter een foutmelding en kom er niet aan uit waarom.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Selection.Interior.Color = 10 Then
Selection.Interior.ColorIndex = xlNone
Selection.Value = ""
MyCol = ActiveCell.Column
Cells(13, MyCol).Resize(, Selection.Columns.Count).Select
Selection.Interior.ColorIndex = 10
Selection.Value = 1
Else
Selection.Interior.ColorIndex = 10
Selection.Value = 1
MyCol = ActiveCell.Column
Cells(13, MyCol).Resize(, Selection.Columns.Count).Select
Selection.Interior.ColorIndex = xlNone
Selection.Value = ""
End If
End Sub