Makro löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: xl9
nach unten

Betrifft: Makro löschen
von: Carsten
Geschrieben am: 02.05.2002 - 16:32:46

Hallo!
Ich erstelle per Makro ein neues Arbeitsblatt.
In dieses Arbeitsblatt werden einpaar Tabellenblätter kopiert.
Unteranderm auch das Blatt in dem der Code steht.
Ich möchte aber das der Code nicht in dem neuen Arbeitsblatt ist.
Wie kann ich verhindern das der Code in dem neuen Arbeitsblatt ist und das ich nicht nach "Makro aktivieren...." gefragt werde???

Danke
Carsten
Hier der Code:
Dim wb As Workbook

Dim wkb As Workbook
Set wkb = Workbooks.Add

ThisWorkbook.Worksheets(6).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(2).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(5).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(3).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
ThisWorkbook.Worksheets(4).Copy After:=wkb.Worksheets(wkb.Worksheets.Count)
ActiveSheet.Protect
Sheets("Tabelle1").Select

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete 'Löschen der Tabelle1
Application.DisplayAlerts = True

'-------------------------------------------------------------------------------------
'Speichern der neuen Arbeitsmappe
On Error GoTo fehler

Dim TB As Worksheet
Dim Name$

Set TB = ActiveSheet
Name = TB.Range("F1") & ("\") & _
TB.Range("B1") & ".xls"
ActiveSheet.Protect
ActiveWorkbook.SaveAs Name
ActiveWorkbook.Close savechanges:=True




nach oben   nach unten

Makro nicht kopieren
von: Any Body
Geschrieben am: 02.05.2002 - 16:36:53

schreib das makro ein ein Blatt das

NICHT

kopiert wird

Any


nach oben   nach unten

Re: Makro nicht kopieren
von: Carsten
Geschrieben am: 03.05.2002 - 08:06:36

Hallo Any!!!

Mein CommandButton liegt auf dem TAbellenblatt3.
Wie bekomme ich den dann z.B. die Verknüpfung zu einem anderen Tabellenblatt hin?
Kenne das nur Button in Tabelle3 = Code in Tabelle3.

Danke
Carsten


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabelle mit Variablennamen wechseln"