Bild Ein und Ausblenden

Bello · 2004-04-05T13:33:19+00:00

Hallo Forum, ich habe eine kleinne aufgabe die ich nicht so einfach beweltigen kann. in meiner tabelle die Eingabe heist habe ich zwei zellen b2 und c2 in denen eine formel integriert ist. diese formel errechnet sich aus ganz wilden sachen einen wert. jezt kommts, wenn in der zelle b2 der wert 1 errechnet wird dann möchte ich das das bild 1 eingeblendet wird, wenn der wert 3 ist dann bild 10. in der zelle c2 auch das selbe prinzip. Die werte der zelle und die bilder Nummern müssen in VBA jederzeit angepasst werden können. z.b. Zelle b2 wert 10 dann bild 11, und so weiter. Ich Danke schonmal im Voraus Bello

Hallo Matthias,
ich habe für dich mal so etwass erstellt was ich brauche, sind nicht die originaldateien die ich verwende, die originale sind so kompliziert und so viele da blikt keiner mehr nachher durch.
Der Fehler tritt aber bei den unten stehenden Dateien genauso auf.
wenn du die dateien runtergeladen hast dann musst du die umbennen.
die namen stehen dahinter.
In der Eigabe kann man im Feld A1 Zahlen 1 bis 10 eingeben dann werden Bilder eingeblendet, das funst soweit.
Wenn jezt die Datei Eingabe geöffnet ist, und du zusätzlich die Datei Liste öffnest genau dann kommt der besagte fehler.
https://www.herber.de/bbs/user/4975.xls -Eingabe

Die Datei https://www.herber.de/bbs/user/4976.xls wurde aus Datenschutzgründen gelöscht

-Liste
wäre schön wenn du das hibiegen köntest.
Gruß Bello

Hallo Bello,
ich glaube ich habe den Fehler gefunden: Lass das "ActiveWorksheet" einfach weg, also so:


Private Sub Worksheet_Calculate()
If [B2].Value >= 1 And [B2].Value < 3 Then
Shapes("Bild 1").Visible = True
Else
Shapes("Bild 1").Visible = False
End If
If [C2].Value >= 1 Then
Shapes("Bild 2").Visible = True
Else
Shapes("Bild 2").Visible = False
End If
End Sub

Es liegt wohl am externen Bezug der Formel, hier wird offenbar kurz das Blatt in Liste.xls aktiv und so kommt's zur Fehlermeldung.
Genauer kann ich Dir's auch nicht erklären, aber hauptsache, es funktioniert.
Noch ein Tip:
Du kannst die Sichtbarkeit der Bilder auch so angeben:
Shapes("Bild 1").Visible = [B1] > 3
d.h. wenn B1>3 = wahr, dann ist auch .Visible wahr also ist das Blatt sichtbar.
ist B3<=3, dann ist mit diesem Befehl das Blatt unsichtbar.
Viele Grüße,
Matthias

Forumthread: Bild Ein und Ausblenden

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bilder in Excel ein- und ausblenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)