• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cell inkleuren bij dubbel klik

Status
Niet open voor verdere reacties.

autoweek

Gebruiker
Lid geworden
8 nov 2011
Berichten
177
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.

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
 
Het verbaast me altijd weer wanneer iemand zegt een foutmelding te krijgen en deze vervolgens achterwege laat :rolleyes:

Maar dit is voldoende:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 1, xlNone, 1)
    Cancel = True
End Sub
 
Laatst bewerkt:
Bedankt voor je reactie.

Het gaat om foutmelding 1004.

Het gaat dan mis bij Selection.Interior.Color = 10 na Else.
 
Die code klopt ook helemaal niets van.
Gebruik mijn voorbeeld.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan