---

Jeg skal i en regnearksside have 3 grafiske elementer.
(Dansk, Grønlandsk og Tysk flag).

Når man klikke med musen på 1 af flagene, skal værdien i cellen A1000 i
regnearket skifte værdi til henholdsvis 1 = dansk, 2 = grønlandsk & 3 =
tysk, startværdien i A1000 er sat til 1.

Altså hvis man klikker på det danske flag skal A1000 være 1, hvis man
klikker på det grønlandske flag skal A1000 være 2, og hvis man klikker på
det tyske flag skal værdien i A1000 være 3.

Hvordan får man cellen A1000 til at skifte værdi, ved at der klikkes på et
grafisk element ?

Med venlig hilsen

Bo G. Christensen - Nuussuaq - Grønland.

---

Den 11 dec 2006 skrev Bo G. Christensen i
dk.edb.programpakker.ms-office:

> Altså hvis man klikker på det danske flag skal A1000 være 1, hvis
> man klikker på det grønlandske flag skal A1000 være 2, og hvis man
> klikker på det tyske flag skal værdien i A1000 være 3.
>
> Hvordan får man cellen A1000 til at skifte værdi, ved at der
> klikkes på et grafisk element ?

Indsæt disse tre i et modul:

Sub flag1()
ThisWorkbook.Sheets("ark1").Range("a1000").Value = 1
End Sub
Sub flag2()
ThisWorkbook.Sheets("ark1").Range("a1000").Value = 2
End Sub
Sub flag3()
ThisWorkbook.Sheets("ark1").Range("a1000").Value = 3
End Sub

Indsæt de tre flag
Højreklik på de tre flag efter tur, og tildel dem hver sin makro

--
Med venlig hilsen
Lars Klintholm

---

Hej Lars !

Det var da lige det der skulle til (-;

Takker og bukker, det virker !

Med venlig hilsen

Bo

"Lars Klintholm" <nospam2006@klintholm.com> skrev i en meddelelse
news:Xns9896E8AC8961Dlarsklintholm@klintholm.com...
> Den 11 dec 2006 skrev Bo G. Christensen i
> dk.edb.programpakker.ms-office:
>
>> Altså hvis man klikker på det danske flag skal A1000 være 1, hvis
>> man klikker på det grønlandske flag skal A1000 være 2, og hvis man
>> klikker på det tyske flag skal værdien i A1000 være 3.
>>
>> Hvordan får man cellen A1000 til at skifte værdi, ved at der
>> klikkes på et grafisk element ?
>
> Indsæt disse tre i et modul:
>
> Sub flag1()
> ThisWorkbook.Sheets("ark1").Range("a1000").Value = 1
> End Sub
> Sub flag2()
> ThisWorkbook.Sheets("ark1").Range("a1000").Value = 2
> End Sub
> Sub flag3()
> ThisWorkbook.Sheets("ark1").Range("a1000").Value = 3
> End Sub
>
> Indsæt de tre flag
> Højreklik på de tre flag efter tur, og tildel dem hver sin makro
>
> --
> Med venlig hilsen
> Lars Klintholm

---

Den 11 dec 2006 skrev Bo G. Christensen i dk.edb.programpakker.ms-
office:

> Det var da lige det der skulle til (-;
>
> Takker og bukker, det virker !

Velbekomme, tak for tilbagemelding

--
Med venlig hilsen
Lars Klintholm