Mehrere Arbeitsblätter exportieren
19.05.2005 07:33:19
Werner
Folgender Code soll so erweitert werden, dass nicht nur EIN Arbeitsblatt exportiert wird, sondern 3:
Sub datensichern()
Dim dlg As FileDialog
Sheets("Speicher").Select
ActiveSheet.Copy
Set dlg = Application.FileDialog(msoFileDialogSaveAs) 'Datei wählen
With dlg
.InitialFileName = ActiveSheet.Name & ".xls"
.InitialView = msoFileDialogViewDetails 'Anzeige des Dialogs - die Dateien als Thumbnail
.Title = "Speicherinhalt sichern" 'Titel
End With
If dlg.Show = True Then
ActiveWorkbook.SaveAs Filename:=dlg.SelectedItems(1)
ActiveWorkbook.Close
End If
End Sub
Die 3 Arbeitsblätter beinhalten Daten, die in einer separaten Datei gesichert werden sollen.
Sowas ist doch bestimmt machbar?
Viele Grüße
Werner
Anzeige