Makro: Neues Tabellenblatt; löscht Makros
22.11.2008 13:22:15
Heiko31
wieder mal ich mit folgendem Problem:
Ich möchte ein Makro haben, das mit Druck auf ein Steuerelement (Schaltfläche) das bestehende Arbeitsblatt komplett übernimmt.
Mit der Makro-Aufzeichnung macht er das auch wunderbar, aber er übernimmt mir nur die Schaltflächen, nicht die Funktionen und die Beschreibungen der Schaltflächen... und schlimmer noch, er ändert die schaltflächen auf dem ursprünglichen arbeitsblatt ab und löscht die makrozuweisung.
Das Makro sieht folgendermaßen aus:
Sub neues_Datenblatt()
' neues_Datenblatt Makro
Sheets("August 1-2008").Select
ActiveSheet.Buttons.Add(674.25, 14.25, 89.25, 42.75).Select
ActiveSheet.Buttons.Add(674.25, 79.5, 89.25, 42.75).Select
ActiveSheet.Buttons.Add(674.25, 142.5, 89.25, 42.75).Select
Sheets("August 1-2008").Copy After:=Sheets(1)
Rows("1:120").Select
Range("A120").Activate
Selection.EntireRow.Hidden = False
Range("A1:M119").Select
Range("M119").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=45
Range("E162").Select
ActiveWindow.SmallScroll Down:=-33
Range("E122:E218").Select
Selection.ClearContents
Range("I122:I218").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=96
Range("K232").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-225
Range("A1").Select
End Sub
Hat jemand eine Idee, wie ich diesen VOrgang optimieren kann?
LG
Heiko
Anzeige