Speichern im Ordner
Heinz
Im unteren Makro speichere ich eine Arbeitsmappe unter dem Name von Sheets "Sortierrapport",
das funktioniert auch.
Nur wird die neue Arbeitsmappe im Ordner "Eigene Dokumente" gespeichert.
Ich möchte aber,das sie im selben Ordner gespeichert wird,wo die neue Datei erstellt wurde.
Könnte mir bitte dazu jemand helfen?
Gruß
Heinz
Sub Speichern()
Dim strAktuellerPfad As String
Dim fileSaveName As String, strfileSaveName As String
Dim MyPfad As String
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strAktuellerPfad & ThisWorkbook.Sheets("Sortierrapport").Range("A1"). _
Value & " " _
& Range("Sortierrapport!C1") & " " & Range("Sortierrapport!R2") & " " & "-" & " " & _
Range("Sortierrapport!S2") & ".xls"
strAktuellerPfad = ActiveWorkbook.Path
MyPfad = IIf(Right$(ThisWorkbook.Path, 1) = Application.PathSeparator, ThisWorkbook.Path, _
ThisWorkbook.Path & Application.PathSeparator)
ActiveSheet.Shapes("Neu").Delete
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("UserFormDaten")
.VBComponents.Remove .VBComponents("Speichern_unter")
.VBComponents.Remove .VBComponents("UserForm1_Anzeigen")
End With
Application.DisplayAlerts = True
End Sub
Anzeige