Bilder mit Makro auf Arbeitsblättern einblenden

Hallo!
Ich habe 4 Bilder, diese werden per Makro ein- und ausgeblendet.
Jetzt habe ich aber mehrere Arbeitsblätter, und ich möchte dass auch auf den anderen Arbeitsblättern wenn ich das Makro ausführe, die Bilder direkt im aktiven Tabellenblatt angezeigt werden.
In dem Blatt names "Kalendertage" funktioniert es einwandfrei. Jetzt hab ich aber noch ein Blatt "5-Tage" "6-Tage" und "7-Tage".
Mit meinem jetzigen Code, der natürlich sehr einfach gestaltet und sicher verbessert werden kann, kommt dann leider eine Fehlermeldung, wenn ich den Code zb. im "5-Tage" Arbeitsblatt ausführen will. Da er die Bilder nicht findet.
Ich könnte jetzt zwar die gleichen Bildern noch auf die anderen Blätter einfügen und mit dem Code ergänzen, aber dann wird die Datei zu groß, was ich vermeiden möchte, weil es ja auch immer die gleichen Bilder sind.
Der Code würde dann noch 2 mal nach dem gleichen Prinzip weitergehen.

Sub ZeigeTeil_2016_1()
' ZeigeTeil1 Makro
ActiveSheet.Shapes.Range(Array("Grafik 11")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 13")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 14")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 10")).Visible = Not ActiveSheet.Shapes.Range(Array("  _
_
Grafik 10")).Visible
End Sub



Sub ZeigeTeil_2016_2()

'

' ZeigeTeil2 Makro

'

'

ActiveSheet.Shapes.Range(Array("Grafik 10")).Visible = msoFalse

ActiveSheet.Shapes.Range(Array("Grafik 13")).Visible = msoFalse

ActiveSheet.Shapes.Range(Array("Grafik 14")).Visible = msoFalse

ActiveSheet.Shapes.Range(Array("Grafik 11")).Visible = Not ActiveSheet.Shapes.Range(Array(" _

Grafik 11")).Visible

End Sub

Guten morgen,
ein klein wenig musst Dich schon selbst beschäftigen mit Deinem Problem. Denn wie sollst Du, falls ein Problem auftritt, dieses dann selbst Lösen können?
Das Netz ist voll mit wirklich tollen Anleitungen, dazu muss man aber auch Wissen, wo die Reise hingehen soll, hier mal ein kleines Beispiel:
http://www.excel-inside.de/funktionen-a-tipps/973-dynamische-bilderanzeige
Überdies ist Deine Fragestellungen mehrdeutig, also "aber wie kann ich ein Bild einer Zelle zuordnen?"
Meinst Du jetzt am Sheet "Tabelle1" oder meinst Du am Sheet "Bilder"?
Und um Dir hier alles in Wort und Schrift zu erklären, da habe ich keine Lust zu. Ich schlage Dir vor, eine exakte Abbildung, natürlich mit Fakedaten, Deiner Mappe hier hoch zuladen.
Auch solltest Du in dieser Mappe genau Beschreiben, was, wie, wann und wo passieren sollte.
Wenn ich am WE Zeit finde, sehe ich es mir mal an bzw. sonst erst ab Montags wieder, falls sich nicht ohnehin bereits eine Lösung durch einen anderen Excelianer gefunden hat.
Dann trotzdem schönen Tag und freundliche Grüße,
Bernd

Bilder mit Makro auf Arbeitsblättern einblenden

Forumthread: Bilder mit Makro auf Arbeitsblättern einblenden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial