Makros funktioniert nicht außerhalb von Click()
28.06.2018 22:05:32
Click()
mit einem kleinen Ideenimpuls (Danke an KlausF) habe ich ein Makro geschrieben welches eine Tabelle kopiert und als verknüpfte Grafik wieder einfügt.
Nicht schön - aber es funktionierte fürs erste:
Private Sub btn_DruckenMantelbogen_Click()
Range("A1:AF47").Select
Selection.Copy
Sheets("Mantelbogen").Select
Worksheets("Mantelbogen").Range("AF50").Select
ActiveSheet.Pictures.Paste(Link:=True).Select
ActiveSheet.Shapes(Shapes.Count).Name = "curPicture"
ActiveSheet.Shapes.Range(Array("curPicture")).Select
Selection.ShapeRange.IncrementRotation 90
Selection.ShapeRange.IncrementLeft -765
Selection.ShapeRange.IncrementTop 115
Selection.ShapeRange.ScaleWidth 0.905, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.905, msoFalse, msoScaleFromTopLeft
End Sub
Bisher war es immer als einfacher Code in einem Button - auf der Tabelle - hinterlegt.
Nun habe ich begonnen den Code aufzuräumen - Refactoring wie es so schön heißt. Allerdings sobald ich den Code von oben 1:1 in ein eigenes Modul samt eigener Sub auslagere, kommt immer wieder ein Fehler, dass die Variable nicht definiert sei oder ein Objekt benötigt werde.
Call kopiereStatuslisteAufMantelbogen
In beiden Fälle bezieht er sich auf
ActiveSheet.Shapes(Shapes.Count).Name = "curPicture"
So und ich kapiere einfach nicht warum.
Grüße
Cornel