wie schaffe ich es je nach Status ein Bild - ein bzw. auszublenden
Danke
Status?
ActiveSheet.Shapes("Picture 1").Visible = False
Gruss
Chris
kenne mich mit VBA so gar nicht aus ;-(
wie müßte das den unter VBA aussehen,
wo muss ich den VBA Code einbringen?
die Grafik steht auf jedem Blatt in einer unterschiedlichen Zelle.
die Abfrage zum ein/ausschalten auf dem letzten Blatt
ne Menge Fragen für Antworten wäre ich Dankbar
was für eine Abfrage?
ich moechte in einer Zelle z.B. A1 als Formelergebnis ein Bild anzeigen lassen. Etwa so: =Wenn( b1 >0; "PIC1";"")
Alt + F11, neues Fenster öffnet sich, links Doppelklick auf das letzte Tabellenblatt, neues Fenster öffnet sich, links oben Dropdown auf Worksheet ändern, rechts oben auf Change, Code einfügen, Fenster schliessen.
"Tabelle 1" gegebenfalls abändern (Blatt mit dem Bild drauf).
Gruss
Chris
teste dies in einer neuen mappe,
habe in Tabelle3 unter worksheet deine Sub eingebaut,
und wie du nachfolgend siehst, habe ich noch eine msgBox eingebaut - aber nix passiert
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$d$4" Then
If Target > 0 Then
Sheets("Tabelle1").Shapes("Picture 1").Visible = True
MsgBox "true"
Else
Sheets("Tabelle1").Shapes("BILD1").Visible = False
MsgBox "False"
End If
End If
End Sub
Mögliche Gründe...
1. Musst du die Zelle D4 verändern damit das Makro ausgelöst wird.
2. Du hast ein Standartmodul statt einem Klassenmodul verwendet (Beschreibung Alt+F11 etc. folgen).
3. Du befindest dich noch im Entwurfsmodus.
Einmal verwendest du Picture 1 und ein anderes mal BILD1 als Bezeichnung. Müsste allerdings einen Fehler hervorrufen. Makrorekorder benutzen und Bild selektieren, dann Code anschauen, dort siehst du die richtige Bezeichnung des Bildes.
ich habe jetzt es jetzt so verändert und auch nix funzt
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target
End Sub
nochmals danke
Öffne den VBA-Editor: Drücke Alt + F11, um den VBA-Editor zu öffnen.
Wähle das gewünschte Arbeitsblatt: Doppelklicke auf das Arbeitsblatt, in dem das Bild angezeigt werden soll.
Füge den VBA-Code ein: Im folgenden Fenster fügst du den Code ein, der das Bild je nach Zellwert ein- oder ausblendet. Ein Beispiel für den Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
If Target.Value > 0 Then
Sheets("Tabelle1").Shapes("Picture 1").Visible = True
Else
Sheets("Tabelle1").Shapes("Picture 1").Visible = False
End If
End If
End SubSchließe den VBA-Editor: Schließe das Fenster, um zum Excel-Arbeitsblatt zurückzukehren.
Testen: Ändere den Wert in Zelle D4, um zu sehen, ob das Bild entsprechend ein- oder ausgeblendet wird.
Worksheet_Change Ereignis ausgelöst wird.Falls du kein VBA verwenden möchtest, gibt es auch die Möglichkeit, Bilder manuell in Excel zu verwalten. Du kannst Bilder einfach in die Zelle einfügen und sie je nach Bedarf manuell sichtbar oder unsichtbar machen. Dies eignet sich jedoch nur für statische Daten und ist weniger dynamisch.
Dynamisches Bild:
=WENN(B1>0; "PIC1"; "").Mehrere Bilder:
If-Bedingungen im VBA-Code hinzufügen, um verschiedene Bilder basierend auf unterschiedlichen Zellwerten anzuzeigen.MsgBox-Befehle im VBA-Code, um den Wert von Variablen während der Ausführung zu überprüfen. Dies hilft, Fehler zu identifizieren.1. Wie kann ich ein Bild in Excel ohne VBA einblenden?
Das Einblenden eines Bildes in Excel erfordert normalerweise VBA, da Excel selbst keine Funktion bietet, um Bilder dynamisch basierend auf Zellwerten zu steuern.
2. Was muss ich beachten, wenn ich den VBA-Editor öffne?
Achte darauf, dass du die richtige Excel-Datei und das richtige Arbeitsblatt auswählst, bevor du den VBA-Code einfügst. Vermeide auch den Entwurfsmodus, um sicherzustellen, dass der Code funktioniert.