Herbers Excel-Forum - das Archiv
Variable
- Variable von Giuseppe vom 16.11.2003 12:11:05
Betrifft: Variable
von: Giuseppe
Geschrieben am: 16.11.2003 12:11:05
Hallo Freunde schön Sonntag,
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
Betrifft: AW: Variable
von: Ramses
Geschrieben am: 16.11.2003 12:15:26
Hallo
ohne das ganze jetzt nachvollziehen zu wollen:
Wenn der code so steht wie du ihn hier geschrieben hast, dann ist das Leerzeichen in "Picture 214" zuviel.
Gruss Rainer
Betrifft: AW: Variable
von: Giuseppe
Geschrieben am: 16.11.2003 12:18:41
Hallo Rainer, gut morgen
das war ein tipfehler!!!
Natürlich ohne leerzeichen
Ciao
Betrifft: AW: Variable
von: Ramses
Geschrieben am: 16.11.2003 12:30:30
Hallo
gerade getestet und funktioniert
Sub Inaktiv()
Dim myPic As String
myPic = "Bild 1"
ActiveSheet.Shapes(myPic).Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureGrayscale
ActiveCell.Select
ActiveCell = ""
End Sub
Warum sollte es bei dir nicht tun ?
Gruss Rainer
Betrifft: AW: Variable
von: Giuseppe
Geschrieben am: 16.11.2003 12:39:19
Hallo Rainer,
so funktioniert bei mir auch
mein Problem ist, dass myPic soll in "Now" dimensioniert werden und in "Inaktiv"
aufgefangen werden
zB:
Sub Fruh()
Dim myPic As String
myPic = "Picture214"
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(myPic).Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureGrayscale
ActiveCell.Select
ActiveCell = ""
End Sub
So funktioniert nicht mehr!
Ciao
Giuseppe
Betrifft: AW: Variable
von: Ramses
Geschrieben am: 16.11.2003 12:44:51
Hallo
woher soll das jemand wissen ?
Solche Informationen gehören gleich in die Frage und man erspart sich eine Menge Schreibarbeit
Public myPic As String
Sub Fruh()
myPic = "Picture214"
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(myPic).Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureGrayscale
ActiveCell.Select
ActiveCell = ""
End Sub
Gruss Rainer
Betrifft: Danke
von: Giuseppe
Geschrieben am: 16.11.2003 13:05:47
Hallo Rainer,
vielen Danke mit deine Lösung, habe was dazu gelernt.
Nochmal Danke
Ciao Giuseppe
PS.: ich dachte meine erste Fragestellung wäre klar gewesen, Sorry.
Betrifft: Merci für's Feedback :-) o.T.
von: Ramses
Geschrieben am: 16.11.2003 13:32:40
...