Hallo,
wie schaffe ich es je nach Status ein Bild - ein bzw. auszublenden
Danke
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