speichern per makro

Forumthread: speichern per makro

speichern per makro

08.04.2003 18:56:25

Markus

Hallo,

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: speichern per makro

08.04.2003 20:29:11

geri

Re: speichern per makro

08.04.2003 20:29:11

geri

Hallo 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

Forumthread: speichern per makro

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread