Grafiken mit Funktionen belegen

Hallo,
Ich hatte schon mal diese Frage gestellt. Da die aber schon so weit unten steht, befürchte ich, dass es keiner sieht. Ich habe leider nach wie vor das Problem, dass ich über VBA bestimmte Bilder nicht ausblenden kann. Bertram hat mir da schon geholfen und mir den VBA-Code übermittelt. Bei mir auf der Arbeit habe ich das mit Excel 97 ausprobiert, und da ging es auch. Nur hier geht es nicht. Ich habe übrigens Excel 2002, also XP, und nicht, wie ich vorher dachte, 2003. Daran sollte es aber nicht liegen, da es wie gesagt mit excel 97 auch lief. Ich denke eher, dass es an der größeren Datei liegt.
Ich habe mal die Datei hochgeladen, wäre schön, wenn Ihr Euch das mal angucken könntet
https://www.herber.de/bbs/user/35591.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
du hast 2 Fehler drin.
1. Fehler
um ein Makro bei einer Änderung einer Zelle zu starten, muß der Makrotext so beginnen:
Private Sub Worksheet_Change(ByVal Target As Range)
bei dir beginnt es mit
Private Sub Worksheet_Change1(ByVal Target As Range)
so daß Excel dieses Makro nicht dem Change-Ereignis zuordnet.
(ausßerdem hast du mehrere Makros, wie soll Excel wissen, welches gemeint ist)
Deine Makros starten erst gar nicht.
2. Fehler:
Die Shape-Namen im Code stimmen nicht mit den Shapenamen der Bilder überein.
im Code mußt du den Namen verwenden, der in der oberen linken Ecke erscheint, wenn du das Bild selektierst. (da wo sonst die Addresse der selektierten Zelle steht)
Ich habe den Code mal überarbeitet und vereinfacht.
Wenn du jetzt Bilder hinzufügst, brauchst du am Code nichts ändern, du mußt lediglich in der Spalte H in der Zeile mit der richtigen Antwort den Bildnamen des ein/auszublendenden Bildes eintragen.
https://www.herber.de/bbs/user/35595.xls
Gruß, Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address 'Frage 1, Bundskanzler Case "$C$4" Call Auswerten(Target.Value, "Bild 11") 'Frage 2, Bundespräsident Case "$C$14" Call Auswerten(Target.Value, "Bild 7") 'Frage 3, Arbeitsminister Case "$C$26" Call Auswerten(Target.Value, "Bild 8") Case Else 'do nothing End Select End Sub Private Sub Auswerten(Wert As String, Bild As String) If UCase(Wert) = "X" Then ActiveSheet.Shapes(Bild).Visible = True Else ActiveSheet.Shapes(Bild).Visible = False End If End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread