Blatt kopieren

08/09/2010 - 18:31 von Peter | Report spam
Hallo NG,
möchte eine Arbeitsmappe erstellen in der der Benutzer ein Blatt auf
Knopfdruck in eine Neue Mappe erstellt.
Das Problem ist nur, dass ein Macro auf dem Blatt hinterlegt ist,
welches aber nicht kopiert werden darf.
Gibt es da eine Möglichkeit?
Gruß
Peter
 

Lesen sie die antworten

#1 Eberhard Funke
08/09/2010 - 20:20 | Warnen spam
Am Wed, 8 Sep 2010 09:31:43 -0700 (PDT) schrieb Peter:

Hallo NG,
möchte eine Arbeitsmappe erstellen in der der Benutzer ein Blatt auf
Knopfdruck in eine Neue Mappe erstellt.
Das Problem ist nur, dass ein Macro auf dem Blatt hinterlegt ist,
welches aber nicht kopiert werden darf.
Gibt es da eine Möglichkeit?
Gruß
Peter



Hallo Peter,

kopiere nicht das *Blatt*, sondern den *Inhalt* des Blattes:


Option Explicit

Sub Neue_Mappe()
Dim strAlteMappe As String
Dim strNeuMappe As String

On Error GoTo fixit

Application.ScreenUpdating = False
Application.EnableEvents = False

strAlteMappe = ActiveWorkbook.Name

Workbooks.Add Template:="Arbeitsmappe"
strNeuMappe = ActiveWorkbook.Name
'Journal kopieren
Windows(strAlteMappe).Activate
ActiveWorkbook.Sheets("Quelle").UsedRange.Copy
Windows(strNeuMappe).Activate
Sheets("Tabelle1").Range("A1").Select
ActiveSheet.Paste

fixit:
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
Mit freundlichen Grüssen Eberhard
XP home XL 2000

Ähnliche fragen