Regneark hjælp

Kan nogle hjælpe med med en "enkelt" lille funktion, som kunne hjælpe os i dagligdagen.

En (eller faktisk mange) celle skal fungere på denne måde. Første klik, med mus, skal sætte et stort "X".   Andet klik skal farve feltet gult og 3. klik skal rense cellen. Jeg har rodet lidt selv med excel men ikke nok til atjeg kan finde ud af dette.
Kan nogle hjælpe eller henvise til hjælp.

Mvh. Bobban

Hej

Du skal markere de celler, hvor du vil kunne det ønskede, og så navngive markeringen.
Skriv navnet "DetteErMinRange" i feltet ovenover A1 (til venstre for formel-editoren) og tryk ENTER

Højre-klik på fanen nederst (Ark1 eller tilsvarende), vis kode og paste følgende kode ind i editoren - den virker ved dobbelt-klik (enkelt-klik er lidt sværere at lave - kan du leve med dette?)

Gem excel-arket i xlsm-format - vend tilbage, hvis der er noget der ikke virker!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("DetteErMinRange"), Target) Is Nothing Then
        Cancel = True
        If Target = "X" And Target.Interior.Color <> 65535 Then
            'Cellen indeholder "X":
            Target.Interior.Pattern = xlSolid
            Target.Interior.Color = 65535
        Else
            If Target.Interior.Color = 65535 Then
                'Cellen er gul:
                Target.Interior.Pattern = xlNone
                Target = ""
            Else
                'Cellen er tom:
                Target = "X"
            End If
        End If
    End If
End Sub

Det var så lidt, Bobban!

Godt, det virkede hos dig også!

Undskyld at jeg blander mig og ovenikøbet er fuldstændigt off-topic.

Men. Jeg vil bare skrive, at jeg er dybt imponeret af denne tråd, som burde sættes i glas og ramme som et skoleeksempel for alle. Tråden rummer essensen af det bedste af det bedste af, hvad Nettips kan byde på og er en fremragende reklame for nettips.dk.

Jeg bøjer mig i støvet for dig, Kurt Kubik. Din uegennyttige hjælpsomhed og grundighed er til UG med kryds og slange. Du rammer lige nøjagtig det, som dybest set burde være sjælen og meningen med Nettips: at hjælpe og fornøje.

Fornøje? Ja, for det er sgu en fornøjelse at læse dette link.

Og det gør mig stolt af at være nettipser.

TAK Kurt Kubik!

Hej Wiseguy

Og tak for dette supplement (selvom det ikke liiige er NT, du henviser til, men skidt, lad gå for denne gang, ha ha). Du går jo selv Kurt Kubik lidt i bedene med dit indlæg. Men jeg må gå til bekendelse og indrømme, at jeg ikke havde det fjerneste kendskab til de 2 forums, du gør opmærksom på. Nok er Prutterhunden udi egen indbildning en meget vidende hund, men her var så 2 ud af et par fantasillioner urler på nettet, hunden ikke kendte til. Men de er nu skrevet bag ørerne.

Og du har ret. Det er ikke og bør ikke være i Nettips interesse at træde på "konkurrenter". Det scorer vi hverken goodwill el. cool cash på. Og et konstruktivt samarbejde med gode naboer 'sådan hen over midten' bør sæføli være velkomment.

Jeg lader de gode intentioner gå videre til "vores" Allan. Måske en idé med en fast henvisning til "den anden Allans" fora?

Og tak igen for et godt, konstruktivt og velment indlæg. Det kan vi ikke få nok af.