Tabellenblatt incl. Macro kopieren
02.10.2012 20:31:43
Gisela
ich habe eine Arbeitsmappe mit sehr vielen Tabellenblättern.
In allen Tabellenblättern befindet sich folgender Makro (ist auch aus dem Forum):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Application.ScreenUpdating = False
Dim intRow As Integer
Cancel = True
On Error GoTo ErrorHandler
Worksheets(Target.Value).Select
intRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intRow, 1).Select
ActiveWindow.SmallScroll ToRight:=-7
Exit Sub
ErrorHandler:
Beep
'MsgBox "TABELLENBLATT nicht gefunden!"
Application.ScreenUpdating = True
End Sub
Nun muss ich eine große Anzahl von neuen Tabellenblättern anlegen. Sind jeweils Kopien der vorhandene TB. Die Kopien der TB werden per Makro angelegt.
Welche Möglichkeiten habe ich, dass der Makro beim kopieren mit übernommen wird?
Hat jemand einen Tipp und kann mir bitte helfen.
Viele Grüße
Gisela