Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei speichern unter Namen

Datei speichern unter Namen
13.02.2004 12:16:10
René R
Hallo,
ich speicher mit diesem Makro eine Datei.

Sub DateiSpeichern()
Dim str As String
Const LW = "D:\"
Const Pfad = "D:\eigene dateien"
str = ActiveWorkbook.Name
ChDrive LW
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal, password:="", writerespassword:=""
End Sub

Soweit auch gut, jetzt möchte ich aber diese z.b über ein Dialogfenster speichern in dem schon eingetragen ist z.B. "Nebenkosten 2003.xls" speichern.
Kurze Erklärung, am Jahresende möchte ich die gleiche Datei für das nächste Jahr haben und die alte sollte das vergangende Jahr enthalten, die Neue Datei logischerweise das Neue Jahr. Ist es möglich gleich alle entsprechenden Zellen in unterschiedlichen Bereichen und auch Tabellenblättern zu löschen.
Diese Aufgabe ist für meine geringen VBA Kenntnisse zu umfangreich.
Vielen Dank

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern unter Namen
13.02.2004 17:59:56
Dieter Klemke
Hallo René,
du kannst das z.B. so machen:

Sub DateiSpeichern()
Dim Jahr As Long
Dim PfadDatei As String
Dim wb As Workbook
Jahr = Year(Date)
Set wb = ThisWorkbook
PfadDatei = Application.GetSaveAsFilename( _
InitialFileName:="Nebenkosten " & Jahr & ".xls", _
FileFilter:= _
"Excel-Dateien (*.xls), *.xls," & _
"beliebige Dateien (*.*), *.*", _
FilterIndex:=1)
If PfadDatei = "Falsch" Then
MsgBox Prompt:="Benutzerabbruch"
Exit Sub
End If
wb.SaveAs Filename:=PfadDatei
End Sub

MfG
Dieter
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige