title image


Smiley Re: Soll / Ist-Vergleich als Farbe anzeigen
Hallo Jörg,



scheinst recht fit zu sein. Ich habe nun noch ein einziges Problem

bei nachfolgendem MAkro. Ich möchte, dass er die Zelle A50 abprüft.

Steht dort eine 1, Picture 1 usw.

Kannst DU mir evtl. auch dabei helfen?



Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Select Case Target.Value

Case 1

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

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

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

Case 2

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

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

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

Case 3

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

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

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

End Select

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: