Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Speichern einzelner Tabellenblätter CheckBox


Betrifft: Speichern einzelner Tabellenblätter CheckBox von: Alba
Geschrieben am: 16.08.2018 10:52:34

Hallo zusammen,

ich speicher meine Tabellenblätter 1, 2 als getrennte Dateien, mit folgenden Code:


Private Sub CommandButton15_Click()
Dim fd, newFolder
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show() = True Then
newFolder = fd.SelectedItems(1) & "\" & TextBox2 & " " & TextBox5
On Error Resume Next
MkDir newFolder
On Error GoTo 0
Sheets(1).Copy
ActiveWorkbook.SaveAs newFolder & "\" & TextBox3 & "_" & TextBox1 & "_" & TextBox2 & "_" &  _
TextBox5 & ".xls", FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close False
Sheets(2).Copy
ActiveWorkbook.SaveAs newFolder & "\" & "Werkstoffaufstellung" & "_" & TextBox5 & "_" &  _
TextBox2 & "_" & TextBox1 & ".xls", FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close False
MsgBox "Dateien wurden erstellt!", vbInformation
End If
End Sub

Jetzt möchte ich beim Tabellenblatt 2 "Werkstoffaufstellung" gerne mit Checkboxen auswählen welche Tabellenblätter hinzugefügt werden sollen damit dann eine neue Datei mit den entsprechenden Tabellenblättern entsteht. Hoffe habe mich verständlich ausgedrückt im Anhang auch eine Beispiel Datei.

https://www.herber.de/bbs/user/123368.zip

Beiträge aus dem Excel-Forum zum Thema "Speichern einzelner Tabellenblätter CheckBox"