folgendes Markro:
Private Sub Januar_Click()
ActiveSheet.Shapes("Line 10").Select
Selection.ShapeRange.IncrementLeft -100.5
Columns("M:CC").Select
Selection.EntireColumn.Hidden = False
Range("AJ:CB").Select
Range("AJ1").Activate
Selection.EntireColumn.Hidden = True
ActiveSheet.Shapes("Line 10").Select
Selection.ShapeRange.IncrementLeft 100.5
Range("A5").Select
End Sub
ergibt nach kopieren / umbenennen der Datei immer den Fehler:
2147024809 (80070057)
Das Element mit dem angegebenen Namen wurde nicht gefunden
Der Fehler kommt bereits in der Zeile: ActiveSheet.Shapes("Line 10").Select
Kann mir jemand helfen?
Danke und Gruß Micha