folgende Makro mit dem Recorder erstellt-
Eigentlich soll folgendes passieren.
#Mit dem Makro 13 werden zwei Grafiken in ein Blatt eingefügt. das funktioniert.
#Mit dem Makro 12 sollen diese Grafiken wieder entfernt werden- funktioniert nicht.
Schlechter Nebeneffekt: wird das Makro 13 mehrmals ausgeführt- dann überlagern sich die eingefügten Grafiken. Wäre es da besser- erst mal eine Abfrage zu machen- ob an den zwei besagten Einfügestellen sich bereits Grafiken befinden und damit dieses Makro nicht auszufühern?
Es handelt sich um die Tabelle8 (Drucken)
Vielleicht kann mal jemand drüber schauen.
LG Andreas
Sub Makro13()
' Makro13 Makro
' mit Stempel Druck
Range("A41:Q55").Select
Selection.Copy
Range("A24").Select
ActiveSheet.Paste
End Sub
Sub Makro12()
'
' Makro12 Makro
' ohne Stempel Druck
'
'
ActiveSheet.Shapes.Range(Array("Picture 56")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Picture 57")).Select
Selection.Delete
End Sub