VBA Makro Speichern unter

https://www.herber.de/bbs/user/137012.xlsx
Hallo
hab mal wieder ein kleines Problem
ich möchte ein Makro erstellen, das wenn ich den Button "Speichern und Schließen" drücke, die Datei unter den Dateinamen "Reinigung_ + Zelle B2" (eingefügte Datum)unter einem bestimmten Dateipfad abgespeichert wird und die Datei sich danach schließt. (als Excel datei)
Dateinamenbeispiel: Reinigung_24.04.2020
Ich habe es schon probiert, komm aber nur soweit, das ich die Datei unter ein bestimmten Namen ohne den Wert aus Zelle B2 abspeichern kann. Zudem bekomm ich dann die Fehlermeldung das die Makros nicht mit abgespeichert werden können. Wäre schön wenn die Makros mit abgespeichert werden und er mich später fragt, ob ich sie bei vorhandener Datei überschreiben möchte.
beste Grüße
Holger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim sDatei As String sDatei = ThisWorkbook.Path & "\ Reinigung_" & _ Format(Tabelle1.Range("B2").Value, "yyyy_MM_dd") & ".xlsm" With ThisWorkbook .SaveAs Filename:=sDatei, FileFormat:=xlOpenXMLWorkbookMacroEnabled End With With ActiveWorkbook .Saved = True .Close False End With End Sub

Hallo Holger,
dann mach es so:


Private Sub CommandButton1_Click()
Dim sPfad As String, sDatei As String
'Speicherpfad
sPfad = Environ("USERPROFILE") & "\Desktop\Test\"
'pr?fen, ob der Speicherpfad existiert
If Dir(sPfad, vbDirectory) = "" Then
'nein. existiert nicht
MsgBox "Sorry, aber den Pfad" & vbCrLf & _
"'" & sPfad & "'" & vbCrLf & _
"gibt es nicht!", vbMsgBoxSetForeground + 16, "Hinweis..."
'Makroende
Exit Sub
End If
'ja, existiert
'Dateiname zusammensetzen
sDatei = sPfad & "Reinigung_" & _
Format(Tabelle1.Range("B2").Value, "yyyy_MM_dd") & ".xlsm"
With ThisWorkbook
'speichern als xlsm-Datei
.SaveAs Filename:=sDatei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
With ActiveWorkbook
'Arbeistsmappe (AM) als gespeichert markieren
.Saved = True
'AM ohne erneutes speichern schlie?en
.Close False
'Excel.Application schlie?en
.Parent.Quit False
End With
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Makro Speichern unter

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread