Active Sheet in neue Datei mit VBA
06.08.2014 18:37:07
Andreas
Habe folgenden Code der auch funktioniert.
Mit diesem Code kann ich aus meinem aktiven Sheet über einen CommandButton das aktive Sheet in eine Neue Datei die welche laut Makro Vorgabe neu erstellt wird mit allen Inhalten sowie vorhandenen CommandButtons einfügen. Das ist auch so gewollt.
Sub Speichern3()
Dim strPath As String
Application.ScreenUpdating = False
ChDrive "D:\"
ChDir Sheets("Eingabe").Range("F3").Value ' Pfad aus Zelle F3
Sheets("Eingabe").Copy
strPath = Application.GetSaveAsFilename(InitialFileName:=Sheets("Eingabe").Range("D5").Value & ".xls", FileFilter:="Exceldateien (*.xls),*.xls,Alle Dateien (*.*), *.*") If strPath = "False" Or strPath = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs strPath
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub Jetzt möchte ich aber noch verschiedene andere Sheets (aber eben nicht alle) aus der aktiven Datei auf die gleiche Weise kopieren und in die neue Datei einfügen. Wenn das neue Sheet in der neuen Datei schon vorhanden ist soll es nicht reinkopiert werden und eine Meldung kommen. Wenn das zu kopierende Sheet noch nicht in der neu erstellten Datei vorhanden ist soll es eingefügt werden.
Das kann ich aber mit diesem Makro nicht machen.
Ich habe aber noch ein Makro
Private Sub TabellenblattSpeichern()
'ActiveSheet.Name = ActiveSheet.Range("D13")
'ActiveSheet.Copy After:=Workbooks("Teilnehmerliste_ViA.xlsm").Sheets(Sheets.Count)
ActiveSheet.Copy After:=Workbooks("Teilnehmerliste_ViA.xlsm").Sheets(Workbooks(" _
Teilnehmerliste_ViA1.xlsm").Sheets.Count)
'ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
'Selection.Delete
'ActiveSheet.Shapes.Range(Array("CommandButton2")).Select
'Selection.Delete
'ActiveSheet.Shapes.Range(Array("CommandButton3")).Select
'Selection.Delete
End Sub
mit diesem Makro fett dargestellte Codezeile kann ich das aktive Sheet kopieren. Dieses wird aber in meine aktive Datei eingefügt. Ich will aber das mit dieser Codezeile das wie zuvor beschrieben das aktive Sheet in die Neu erstellte Datei eingefügt wird.
Wie muß ich dies in mein erstes Makro mit einbauen. Leider krieg ich das ohne hilfe nicht hin.
Kann mir jemand meinen ersten Code dementsprechend anpassen. Meine VBA Kenntnisse sind noch eher mangelhaft. Sorry
liebe Grüße Andreas