title image


Smiley Und hier eine VBA-Lösung
Hallo,

und wenn es VBA sein soll, zB so:



Sub DruckerAus()



Select Case UserForm1.ListBox1.Text

Case "Kreis"

ActiveSheet.Shapes("Picture 1").Visible = False

ActiveSheet.Shapes("Picture 2").Visible = False

ActiveSheet.Shapes("Picture 3").Visible = True

Case "Kreisring"

ActiveSheet.Shapes("Picture 1").Visible = False

ActiveSheet.Shapes("Picture 2").Visible = True

ActiveSheet.Shapes("Picture 3").Visible = False

Case "Rechteck"

ActiveSheet.Shapes("Picture 1").Visible = True

ActiveSheet.Shapes("Picture 2").Visible = False

ActiveSheet.Shapes("Picture 3").Visible = False

End Select



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: