Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Bilder per Checkbox anzeigen/ausblenden

283 views
Skip to first unread message

Juergen Bohl

unread,
Apr 20, 2009, 3:01:23 AM4/20/09
to
Hallo zusammen,

wieder mal ein Problem bei mir:

habe zwei Checkboxen erstellt, welche 2 Bilder unabhängig voneinander
an/bzw. ausblenden sollen. Checkbox 1 funzt, die Checkbox 2 irgendwie
nicht, oder eher wie sie will.

Wo kann der Fehler liegen?
Danke im voraus!

Hier mein Beispiel:
http://tinyurl.com/cg9sws
--

Gruss, Juergen

Andreas Killer

unread,
Apr 20, 2009, 3:12:56 AM4/20/09
to
On 20 Apr., 09:01, Juergen Bohl <if_s...@fahr-zur-hoelle.org> wrote:

> habe zwei Checkboxen erstellt, welche 2 Bilder unabhängig voneinander
> an/bzw. ausblenden sollen. Checkbox 1 funzt, die Checkbox 2 irgendwie
> nicht, oder eher wie sie will.
>
> Wo kann der Fehler liegen?

Du musst im Code dann auch schon .CheckBox2.Value auswerten und
nicht .CheckBox1.Value

Außerdem läßt sich der Code vereinfachen:

Private Sub CheckBox2_Click()
With ActiveSheet
.Shapes("Picture 1").Visible = .CheckBox2.Value
End With
End Sub

Andreas.

stefan onken

unread,
Apr 20, 2009, 3:13:35 AM4/20/09
to
On 20 Apr., 09:01, Juergen Bohl <if_s...@fahr-zur-hoelle.org> wrote:

hallo Juergen,
du hast im Makro für CheckBox2 den Code
Select Case .CheckBox1.Value
das musst du auf
Select Case .CheckBox1.Value
ändern.

Gruß
stefan

Juergen Bohl

unread,
Apr 20, 2009, 3:16:50 AM4/20/09
to
Am Mon, 20 Apr 2009 00:13:35 -0700 (PDT) schrieb stefan onken:

> On 20 Apr., 09:01, Juergen Bohl <if_s...@fahr-zur-hoelle.org> wrote:
>> Hallo zusammen,
>>
>> wieder mal ein Problem bei mir:
>>
>> habe zwei Checkboxen erstellt, welche 2 Bilder unabhängig voneinander
>> an/bzw. ausblenden sollen. Checkbox 1 funzt, die Checkbox 2 irgendwie
>> nicht, oder eher wie sie will.

Hallo Stefan, Hallo Andreas!

>> Hier mein Beispiel:http://tinyurl.com/cg9sws
>> --
>>
>> Gruss, Juergen  
>

> du hast im Makro für CheckBox2 den Code
> Select Case .CheckBox1.Value
> das musst du auf
> Select Case .CheckBox1.Value
> ändern.

Tja, manchmal ist der Baum größer als der Wald am Montag früh :-)
Vielen Dank für die schnellen Antworten !!
--

Gruss, Juergen

Juergen Bohl

unread,
Apr 20, 2009, 9:35:39 AM4/20/09
to
Hallo nochmals zusammen,

wollte die Checkbox-Variante dahingehend erweitern, dass die Bilder der
einzelnen Registerblätter [63-13-99], auch zentral auf einer
Übersichtsseite [Tabelle1] angezeigt werden können.

Geht das überhaupt zu bewerkstelligen mittels modifizieren des Codes oder
aussichtslos?

Hier nochmals ein beispiel von mir:
http://tinyurl.com/c69jfw

Danke wieder vielmals im voraus!

--

Gruss, Juergen

0 new messages