mehrere Arbeitsblätter in neue Datei
20.11.2020 10:12:33
Rolf
Ich komme mit meinem Wissen wieder mal an meine Grenzen und konnte mich auch über Google nicht schlauer machen.
Mein Problem ist folgendes:
Ich habe eine Arbeitsmappe mit ungefähr 10 Tabellen. Über einen ComandButton möchte ich nun _ vereinzelte Arbeitsblätter in eine neue Datei kopieren. mit folgendem Code kopiere ich die ganze Mappe in eine neue Datei.
Private Sub CommandButton1_Click()
Dim Name
Dim Datei
Datei = Worksheets("Grundlagen").Range("G2")
If Datei = "" Then
MsgBox "Ohne Zeichnungsnummer ist kein Speichern möglich", vbExclamation
Exit Sub
End If
Name = Application.GetSaveAsFilename("C:Test\" _
& Datei & ".xlsm", fileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsm), *.xlsm")
If Name False Then
ActiveWorkbook.SaveAs Name, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
'ActiveWorkbook.Close
End Sub
Wie muss ich meinen Code nun ändern, damit er mir nur die Tabellenblätter "Daten", "Test" und "Grundlagen" kopiert.
Ich hoffe ihr könnt mir dabei helfen. Vielen Dank und liebe Grüsse
Rolf
Anzeige