Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro löschen

Makro löschen
02.05.2002 16:32:46
Carsten
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




2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makro nicht kopieren
02.05.2002 16:36:53
Any Body
schreib das makro ein ein Blatt das

NICHT

kopiert wird

Any

Re: Makro nicht kopieren
03.05.2002 08:06:36
Carsten
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige