Variables Shap
06.02.2006 12:31:03
Haegar
Ich vermute ich hab mir das zu einfach vorgestellt. Ich wollte in einem Tabellenblatt sämtliche Bilder hinterlegen, und dann über ein Macro das entsprechende Bild auswählen.
Kann mir jemand ein Tip geben, bei mir bricht das Macro in der dritten Zeile ab.
Sub Bildrot()
Bild = Sheets("Artikel").Cells(2, 9)
Sheets("Artikel").Select
ActiveSheet.Shapes(Bild).Select
Selection.Copy
Sheets("Diagramm").Select
Range("B5").Select
ActiveSheet.Paste
End Sub