Variable
16.11.2003 12:11:05
Giuseppe
Ich hänge mal wieder fest!!!
mit der Code
Sub now()
If Sheets(13).Range("c4").Value = "" Then
Inaktiv
Exit Sub
End If
If Sheets(13).Range("c4").Value > "" Then
Aktiv
End If
ActiveCell = "F"
ActiveCell.Offset(0, 1).Select
End Sub
Sub Inaktiv()
ActiveSheet.Shapes("Picture214").Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureGrayscale
ActiveCell.Select
ActiveCell = ""
End Sub
Sub Aktiv()
ActiveSheet.Shapes("Picture214").Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
End Sub
wird ein Bild Grau bzw. Farbig dargestellt
Da ich viele Bilder habe,wollte ich "Picture214" als Variable definieren
habe mir so gedacht
Dim Pi as String
Pi="Picture 214"
in "Now" und in "Aktiv und Inaktiv"
ActiveSheeet.Shapes(Pi)
....aber irgendwie funktioniert es nicht!!!
Was mache ich falsch?
Ciao Giuseppe