Microsoft Excel

Herbers Excel/VBA-Archiv

Speichern unter VBA

Betrifft: Speichern unter VBA von: rag
Geschrieben am: 21.10.2014 10:53:33

Also ich klicke auf ein Button, dann soll die Datei einfach normal gespeichert werden, und falls die Datei vorhanden ist, soll es dann ersetzen.

Aber irgendwie klappt es nicht :(

Sub Speichern()
'
' Speichern Makro
'

'

Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "C:\Users\Dokumente\Wöchentliche Report\Erfassungslieste\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
  ".xlsx", FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsx), *.xlsx")

Application.Dialogs(xlDialogSaveAs).Show strDateiname


End Sub

  

Betrifft: AW: Speichern unter VBA von: mumpel
Geschrieben am: 21.10.2014 11:14:01

Hallo!

Wozu zwei Dialoge?

Sub Speichern()

Dim strPath   As String
Dim strName   As String


strPath = Environ("USERPROFILE") & "Documents\Wöchentliche Report\Erfassungslieste\"

strName = Application.GetSaveAsFilename(InitialFileName:=strPath & ".xlsx", _
                                        FileFilter:="XLSX-File (*.xlsx), *.xlsx")

If strName = "Falsch" Then Exit Sub


Application.DisplayAlerts = False
 
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlOpenXMLWorkbook

Application.DisplayAlerts = True


End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 15
Gruß, René


  

Betrifft: AW: Speichern unter VBA von: rag
Geschrieben am: 21.10.2014 12:23:21

Danke klappt wunderbar!!!


 

Beiträge aus den Excel-Beispielen zum Thema "Speichern unter VBA"