Herbers Excel-Forum - das Archiv

Variable

Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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.
Bild

Betrifft: Merci für's Feedback :-) o.T.
von: Ramses
Geschrieben am: 16.11.2003 13:32:40
...
Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Variable"
Variablenübergabe in andere Arbeitsmappen Text aus Textbox in Variable
Einlesen von Zellinhalten in Variablen Variable in Formel einbauen
Variable in Excel-Formel einbauen. Text aus UserForm-Textbox in Variable einlesen
Variable in Zwischenablage übernehmen Variablen in einer temporären Textdatei zwischenspeichern
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben Feldvariable auf Inhalt testen