ich möchte gern per Makro nur ein bestimmtes Tabellenblatt aus einer Mappe speichern:
- mit Auswahlfenster
geht mit: Application.Dialogs(xlDialogSaveAs).Show
- ohne Makros
hat jemand hier eine Idee?
Gruß
Markus
ich möchte gern per Makro nur ein bestimmtes Tabellenblatt aus einer Mappe speichern:
- mit Auswahlfenster
geht mit: Application.Dialogs(xlDialogSaveAs).Show
- ohne Makros
hat jemand hier eine Idee?
Gruß
Markus
versuche es so evtl. erfüllt dies deinen Wunsch
Sub Speichern_blatt()
Application.ScreenUpdating = False
ActiveSheet.Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
'Pfad anpassen "C:\???????\
ActiveWorkbook.SaveAs Filename:="C:\DATEN\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Pfad anpassen "C:\???????\
MsgBox " Die Datei wurde unter C:\DATEN\ " & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub
es wird das aktive Blatt gespeichert
gruss geri