Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Cell inkleuren bij dubbel klik

  1. #1
    Senior Member
    Geregistreerd
    8 november 2011
    Vraag is opgelost

    Cell inkleuren bij dubbel klik

    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
    Gr,

    Ralf

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Het verbaast me altijd weer wanneer iemand zegt een foutmelding te krijgen en deze vervolgens achterwege laat

    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 aangepast door edmoor : 30 juni 2020 om 08:32
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Senior Member
    Geregistreerd
    8 november 2011
    Bedankt voor je reactie.

    Het gaat om foutmelding 1004.

    Het gaat dan mis bij Selection.Interior.Color = 10 na Else.
    Gr,

    Ralf

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Die code klopt ook helemaal niets van.
    Gebruik mijn voorbeeld.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren