Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild Ein und Ausblenden

Bild Ein und Ausblenden
05.04.2004 13:33:19
Bello
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild Ein und Ausblenden
05.04.2004 14:15:42
Matthias G
Hallo Bello,
Rechtsklick aus den Blattnamen in Arbeitsblattregister, Code anzeigen wählen, hier folgenden Code ins Arbeitsblattmodul:

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

Der Code wird bei jeder Neuberechnung ausgeführt.
Wenn Du die Zeilen verstanden hast, hast Du sicher keine Probleme, das Ganze noch anzupassen bzw. zu erweitern.
Viel Erfolg,
Matthias
Anzeige
AW: Bild Ein und Ausblenden
05.04.2004 19:19:57
Bello
Hallo Matthias,
ich habe deinen Code ausprobiert und ich muss sagen es klappt so wein supper!!!
aber wenn ich parallel eine zweite Excel Datei öffne dann beckomme ich eine Fehlermeldung
Laufzeitfehler '-2147024809(80070057)':
Das Element mit dem Angegebenen Namen wurde nicht gefunden
wenn ich dann auf Debuggen gehe ist die Zeile
ActiveSheet.Shapes("Bild 1").Visible = False
im VBA Code Gelb Markiert.
Wie beckomme ich diesen Fehler weg???
Gruß Bello
AW: Bild Ein und Ausblenden
05.04.2004 19:30:22
Matthias G
Hallo Bello,
Der Feher bedeutet, dass ein Bild mit angegebenen Namen ("Bild 1") auf dem Blatt nicht existiert...
Du musst sicherstellen, dass der Code im Codemodul deines betreffenden Tabellenblattes steht und sonst nirgends.
Dann wird der Code nur bei Berechnung im betr. Blatt ausgeführt, Änderungen in anderen Blättern spielen dann keine Rolle.
Wenn Du Probleme hast lad' deine Datei mal hoch, damit ich es mir anschauen kann.
Gruß Matthias
Anzeige
AW: Bild Ein und Ausblenden
05.04.2004 21:11:17
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
Anzeige
AW: Bild Ein und Ausblenden
05.04.2004 21:41:01
Matthias G
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
Anzeige
AW: Bild Ein und Ausblenden
06.04.2004 01:59:26
Bello
Hallo Matthias,
jezt scheint es wirklich zu funktionieren!!!
Tausend Dank nochmal!!!
Gruß Bello
AW: Danke für die Rückmeldung! - o.T.
06.04.2004 14:23:16
Matthias G
:-)

25 Forumthreads zu ähnlichen Themen

Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Bild beim speichern anzeigen
ray

Hallo,
ich möchte eine Grafik beim Speichern auf der Userform anzeigen lassen.
So geht es nciht:
Private Sub ImgSave_Click() Image2.Visible = True ActiveWorkbook.Save Image2.Visible = False End Sub
Image2 wird nicht angezeigt. Hat jemand iene Idee?
Viele Grüße aus H...
28.09.2011 12:04:11
Thread-ID: 1231817
3 Beiträge
Messagebox bei Zellenklick anzeigen
Hans

Hallo Forum,
ich hänge schon seit Stunden an einem Makro rum, welches ich für meine Zwecke umbauen wollte aber es will mir einfach nicht gelingen.
Ziel des Makro soll es sein, wenn ich im Tabellenblatt „Hauptseite“ in die Zelle „AH3“ klicke, soll mir eine Messagebox sagen „Bitte überprü...
24.08.2013 23:50:30
Thread-ID: 1328261
6 Beiträge
Anzeige
wenn Eingabe, dann def. Bild aus anderem Sheet
min

Hallo zusammen,
in einer Stücklisten-Datei mit zig (über 30) Tabellenblättern sollen Bilder eingefügt/ angezeigt werden, wenn einzelne Artikel mit einer Stückzahl größer 0 ausgewählt werden. D.h. es gibt mind. drei Spalten: Anzeige Bild + Kurzbezeichnung + Stückzahl.
Dazu gibt es ein Ta...
12.02.2014 13:11:47
Thread-ID: 1349235
4 Beiträge
Wenn Zelle gefüllt dann Bild einfügen/ transparent
Rene

Hallo zusammen,
ich benötige ein Makro, der ein Bild oder Grafik sichtbar macht nur wenn 2 Kriterien erfüllt sind.
Anbei auch mal ein Screenshot
wenn B7 und J7 gefüllt sind soll er den Pfeil (gelber Kreis) sichtbar machen.
Ich danke schon im Voraus :)
lg
René

...
01.07.2016 09:16:54
Thread-ID: 1501993
15 Beiträge
Wenn Werte in der Zelle, dann durchschnitt bilden
Mouphty

Hallo,
ich habe folgendes Problem:
ich möchte an verschiedenen Tagen Zahlen notieren und daraus immer fortlaufend den den Duchschnitt bilden.
d.h. im ersten feld A1 von ca 15 Feldern steht 20, dann heißt der Durchschnitt =A1/1 Erbebnis = 20.
jetzt kommt der wert in A2 dazu,z.b....
13.10.2016 17:24:02
Thread-ID: 1519527
3 Beiträge
Bei Doppelklick anzeigen von bestimmten Zeilen
bestimmten

Hi Leute,
Ich bitte nochmal um eure Hilfe!
In meinem Kalender möchte ich zu den verschiedenen Einträgen Details in einem zweiten Tabellenblatt anzeigen lassen.
Was soll also passieren:
Wenn ich im Tabellenblatt Kalender auf eine bestimmte Zelle der Spalte L klicke, sollen im Ta...
31.10.2016 11:54:25
Thread-ID: 1522388
9 Beiträge
Bild bei Klick anzeigen lassen
Gustavo

Ich würde gerne in Excel einen Namen oder eine Zelle mit einem Bild verknüpfen, optimalerweise wenn man über das Feld/den Namen mit dem Cursor fährt, dass das Bild angezeigt wird. Oder halt wenn man draufklickt. Was gibt es da für Möglichkeiten und wie setze ich dies um? Habe quasi 100 Namen un...
27.05.2017 13:52:30
Thread-ID: 1560636
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
3
2
5
7
3
14
2
8
1
1
1
4
2
2
8
2
5
3
9
6
4
7
8
18