Ich erstellen mit einem Makro eine neues Tabellenblatt der Name ist bezogen auf
die Kalenderwoche also KW 1, KW2 etc.
Makro dafür: Modul
Sub Makro3()
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
Sheets("1").Select
Application.GoTo Reference:="R1C1"
ActiveCell.Range("A1:X65").Select
Selection.Copy
Sheets("KW").Select
Application.GoTo Reference:="R1C1"
ActiveCell.Range("A1:X65").Select
ActiveSheet.Paste
ActiveCell.Select
Sheets("KW").Copy Workbooks("1.xls").Sheets(4 _
)
Sheets("KW").Select
ActiveCell.Range("A1:X65").Select
Selection.ClearContents
ActiveCell.Select
Sheets("Schichtplan").Select
ActiveCell.Select
'Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
End Sub
Das klappt ganz gut aber wie kann ich der Tabelle als Object ein immerwiederkehrendes Makro geben.
Es soll jedesmal ein bestimmtes Makro ausgeführt werden wenn das jeweilige Tabellenblatt aktiviert wird.
Makro: des jeweiligen Tabellenblattes:
Private Sub Worksheet_Activate()
Application.Run "'1.xls'!start.start"
End Sub
Kann ich nicht irgendwie bestimmen das wenn ich das Tabellenblatt anlege Excel automatisch den obengenannten code einfügt ??
1000000000000000 Dank