Bild ausblenden wenn...

[Reismann]

Hi,

ich stehe mal wieder vor einem Problem.

Wie kann man ein Bild ein- bzw. ausblenden wenn 3 definierte Zellen leer sind?

In meinem Fall soll das Bild "Picture1" ausgeblendet werden wenn die Zellen A1, A2 und A3 leer sind. Wenn eine oder alle Zellen mit Inhalt gefüllt sind soll das Bild erscheinen.

Geht das ohne VBA? Eine Möglichkeit ohne VBA würde ich bevorzugen. Falls das nicht geht kann ich zur Not auch einen VBA Code verwenden.

Vielen Dank schon mal vorab!

Viele Grüße,
Reismann

[atilla]

Hallo,

es kann ausgeblendet werden per Knopfdruck oder abhängig von einem Ereignis.
Das Ereignis könnte eine Änderung in den Zellen A1:A3 sein.

Unten zwei Beispiele

Code:

Sub test()
  'Das Makro mus manuell gestartet werden, z. über eine Schaltfläsche
  ActiveSheet.Shapes("Picture 1").Visible = Application.CountA(Range("A1:A3")) <> 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  'Bei Änderung im Bereich A1:a3 startet das Makro automatisch
  If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
    ActiveSheet.Shapes("Picture 1").Visible = Application.CountA(Range("A1:A3")) <> 0
  End If
End Sub

[Reismann]

Perfekt. Funktioniert super!

Dankeschön!

[Jockel]

Hallo, ja das gaht auch ohne VBA, aber dazu bräuchte ich (d)eine (beispiel)datei... ... aber du hast ja (d)eine (VBA)Lösung...

[atilla]

Hallo Jörg,

hier von mir eine Beispielmappe:


  Bild ausblenden nach Bedingung.xlsx (Größe: 134,56 KB / Downloads: 18)

[Jockel]

Hallo Jörg,

hier von mir eine Beispielmappe:

Hallo Atilla, welches Bild soll denn eingeblendet werden, doch nicht etwa der screenshot..? Geht auch ist denke ich aber am Thema vorbei... ich kann mich täuschen, aber ich dachte dachte  an ein kleineres Bild...

[Reismann]

Die größe des Bildes spielt doch keine Rolle. Wie würdest du es denn ohne VBA lösen?

[Jockel]

Die größe des Bildes spielt doch keine Rolle. Wie würdest du es denn ohne VBA lösen?

Hallo, für dich spielt das keine Rolle, für meine Variante aber schon, auch wo das Bild hin soll...

[chris-ka]

Hi,

anbei eine kleine Demo :)


  123__.xlsx (Größe: 91,43 KB / Downloads: 36)
lg
chris

[Jockel]

Hi,

anbei eine kleine Demo :)


lg
chris

Hallo, jepp genauso hätte ich es auch gemacht... siehe auch hier..:  http://www.clever-excel-forum.de/Thread-...6#pid31446