Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Speichern unter VBA

Speichern unter VBA
21.10.2014 10:53:33
rag
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern unter VBA
21.10.2014 11:14:01
mumpel
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é

Anzeige
AW: Speichern unter VBA
21.10.2014 12:23:21
rag
Danke klappt wunderbar!!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige