Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bilder abhängig von anderem Ergebnis einblenden
#1
Hallo ich hätte da mal eine Frage,

ich habe einen Fragebogen, bei dem es 3 verschiedene Ergebnisse geben kann. Je nachdem welches Ergebnis rauskommt soll dabei eines von 3 möglichen Bildern angezeigt werden. Die Bilder liegen auf einem eigenen Blatt ab und ich würde gerne über eine Funktion in Richtung:

wenn(k4="ergebnis 1";bild1;k4="ergebnis 2";bild2;k4="ergebnis 3";bild3)

Mit VBA kenne ich mich leider nicht wirklich aus. Kann mir vielleicht jemand helfen und sagen, ob das so funktioniert bzw. wenn nicht, ob es möglich ist das irgendwie anders zu lösen?

Danke schonmal im Vorraus :)
Antworten Top
#2
Hallo

Schau hier mal rein.
https://www.clever-excel-forum.de/Thread...ght=bilder
[-] Folgende(r) 1 Nutzer sagt Danke an Elex für diesen Beitrag:
  • Zinki
Antworten Top
#3
Hallo

mit VBA ist das sehr einfach! Starte den makro Recorder und klicke ein bild an, dann beende die Aufzeichnung, starte neu, und klicke das naechste Bild an. usw. alle drei.

Jetzt hast du im makro den Code mit dem Bild Namen und .Select am Ende.
Ersetze dieses .Select durch den Befehl .Visible = False, und einen zweiten Befehl mit .Visible = True

Jetzt kannst du mit einem Button ein Makro für jedes Bild starten. Zum Umschalten (Ein Ausscahlten) macht man das wie im Code unten.

mfg Gast 123

'** Makro Recorder Code umwandeln in Visible
'ActiveSheet.Shapes("Dein Bild").Select

Sub Bild_ein_ausschalten()
If ActiveSheet.Shapes("Dein Bild").Visible = True Then
ActiveSheet.Shapes("Dein Bild").Visible = False
Else
ActiveSheet.Shapes("Dein Bild").Visible = True
End If
End Sub
[-] Folgende(r) 1 Nutzer sagt Danke an Gast 123 für diesen Beitrag:
  • Zinki
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste