Office: Grafiken ausblenden über Optionsfelder

Hallo miteinander,

bin ganz neu im Forum. Habe die Aufgabe, in einer Datei auf mehreren Tabellenblättern Grafiken ein- bzw. auszublenden. Je nachdem, was über 2 Optionsbuttons in Tabelle 1 ausgewählt wurde.

Also in Tabelle 1 sind 2 Optionsbuttons miteinander verknüpft. Wenn jetzt OptionButton1 angeklickt ist, soll in Tabelle2 die Grafik1 und in Tabelle3 die Grafik3 angezeigt werden (sind beide in das jeweilige Tabellenblatt eingefügt).
Wenn dann OptionButton2 angeklickt ist, soll in Tabelle2 Grafik 2 und in Tabelle3 Grafik4 angezeigt werden.

Habe es folgendermaßen versucht, klappt aber nicht:

Private Sub OptionButton1_Change()

If OptionButton1 Then
Tabelle2.Shapes(Grafik1).Visible = msoTrue
Tabelle2.Shapes(Grafik2).Visible = msoFalse
Tabelle3.Shapes(Grafik3).Visible = msoTrue
Tabelle3.Shapes(Grafik4).Visible = msoFalse
End If
End Sub

Private Sub OptionButton2_Change()

If OptionButton2 Then
Tabelle2.Shapes(Grafik1).Visible = msoFalse
Tabelle2.Shapes(Grafik2).Visible = msoTrue
Tabelle3.Shapes(Grafik3).Visible = msoFalse
Tabelle3.Shapes(Grafik4).Visible = msoTrue
End If
End Sub

Danke für Hilfe!!

:)

 

Hallo,

Gibt es noch weitere Grafiken oder andere Objekte auf den Tabellenblättern?
Am besten, Du lädst mal eine Beispieldatei hoch.

VG Hauke

 

Ja, ich habe dutzende von Kontrollkästchen, Grafiken und andere Steuerelemente wie Dropdown-Menüs eingefügt. Die Tabellenblätter werden auch später mit einem Blattschutz belegt.

Sollte noch etwas hinzufügen:

den code welchen ich gerade eingestellt habe, habe ich in einer extra Datei ausprobiert. In dieser extra Datei sind keine anderen Objekte eingefügt. Er läuft trotzdem nicht. Wenn ich im VBA auf Einzelschritt gehe und mit dem Mauszeiger auf die gelb unterlegte Zeile "If OptionButton1 Then" zeige, dann kommt "OptionButton1=leer" ???

 

Ich habe jetzt selbst mal eine Beispieldatei erstellt. Bei mir funktioniert es einwandfrei.

Code:

Ich denke es liegt an der korrekten Bezeichnung der Namen, dies ist aber nur eine Vermutung, da ich leider nicht in Deine Arbeitsmappe schauen kann.

Mit diesem Code kannst Du dir die Namen Deiner Shapes auflisten lassen (Achtung Arbeitsblatt anpassen!):

Code:

 

Hallo,

ich habe jetzt mal deinen code in mein Tabellenblatt eingefügt (Namen vom Tabellenblatt angepaßt!). Mit F5 läuft garnichts, aber mit Einzelschritt kann ich den code ablaufen lassen. Aber wo schreibt er die Namen denn hin? Und leider bleibt er in den beiden vorletzten Zeilen wie in einer Endlosschleife hängen.

 

Gute Morgen,

hast Du den Code in ein Modul eingefügt? Das Ergebnis der Schleife wird mit
Code:

im Direktfenster ausgegeben. Das kannst Du im VB Editor unter dem Menüpunkt Ansicht -> Direktfenster einblenden Alternativ auch mit der Tastenkombi STRG+G

Wie gesagt lade doch mal bitte Deine Extra Datei hoch ansonsten kann ich Dir nicht weiterhelfen.

Viele Grüße
Hauke

 

Guten Morgen,

bin wieder da. Habe jetzt mal die extra Datei hochgeladen. Mal sehen, wer helfen kann?

Gruß
sr-dh

 

Hallo sr-dh,

ich will Dir ja gern helfen.. jedoch enthält Deine Datei keinen Code.

Du machst es einem nicht leicht.

Viele Grüße
Hauke

 

so hier mal Deine extra Datei mit Code:

Deine Grafiken heißen auf:

Tabellenblatt 2

Tabellenblatt 3

Der Code dazu sieht so aus:

Code:

Schau es Dir einmal an...

Viele Grüße
Hauke

 

Hi,

schreibe folgendes Makro in ein allgemeines Modul:

Code:

und weise es beiden OptionButton zu.

 

Hallo Hauke,
´tschuldigung, habe die falsche Datei eingestellt. Habe jetzt die richtige Datei hochgeladen. Doch wenn ich den Optionbutton betätige, kommt Fehlermeldung "Das Makro "Sub für Bildwechsel.xlsm'!Optionsfeld1_Klicken' kann nicht ausgeführt werden.Das Makro ist möglicherweise nicht in dieser Arbeitsmappe verfügbar oder alle Makros wurden deaktiviert!" ????
Habe die Datei als .xlsm abspeichern müssen, ansonsten hätte er die Makros nicht mit gespeichert. Und trotzdem läufts nicht!

Gruß

 

Hi,

also mit meinem Code funktioniert das problemlos, aber wenn man ihn nicht testet, kann man das auch nicht herausfinden.

 

Guten Morgen,

habe deinen Code schon getestet. Aber als ich versucht habe, ihn in Einzelschritten im VBA-Editor ablaufen zu lassen, hat er gleich beim Code-Namen eine Fehlermeldung ausgegeben. Habe dann den Namen geändert, aber es kam jedes Mal wieder eine andere Fehlermeldung!?
Habe mir jetzt aber die von dir hochgeladene Datei gespeichert und versuche sie für mich umzuschreiben! Danke!

 

Hi,

diesen Code kann man nur ablaufen lassen, wenn er mit den Steuerelementen verknüpft ist und er durch eins dieser Steurelemente gestartet wird. Den Begriff ActiveSheet.Shapes(Application.Caller) kann man übersetzen mit: "Das aufrufende Steuerelement im aktiven Tabellenblatt" und wenn es kein aufrufendes Steuerelement gibt - was ja der Fall ist, denn du den Code von Hand ausführst - wird dieses Steuerelement logischerweise nicht gefunden und löst den Fehler aus.

 

Hallo sr-dh,

was mir auf den ersten Blick aufgefallen ist, dass Deine Grafiken im Code nicht korrekt benannt sind. Das war im übrigen einer meiner ersteren Hinweise. Deine eine Grafik heißt "picture 1" und nicht wie in Deinem Code geschrieben "picture1" da fehlt ein Leerzeichen.

Viele Grüße
Hauke