title image


Smiley Grafiken auswählen
Guten Morgen zusammen,



Folgendes Problem:



Ich habe in meinem Tabellenblatt drei kleine Zeichnungen

sie haben den Namen:

"Kopf"

"Kreuz"

"Lilie"



außerdem gibt es zwei Diagramme, deren Namen ich leider nicht rausfinden kann



Ich möchte das nach Eingabe von "Kopf"; "Kreuz" oder "Lilie" in die Zelle J3

die beiden Grafiken die ich in J2 nicht angegben habe, verschwinden. Die Grafik mit dem Namen aus J2 und die beiden Diagramme sollen bleiben.



Hat jemand nen Tipp für mich?



Mein Ansatz:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$3" Then

For t = 1 To ActiveSheet.Shapes.Count

If Shapes(t).Name [J3] Then Shapes(t).Visible = False

Next

Shapes([J3]).Visible = True

Shapes([Diagramm1]).Visible = True

Shapes([Diagramm2]).Visible = True

End If

End Sub


Gruß Tassos

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: