Ich würde gerne den Speicherort auswählen, an dem die Datei gespeichert werden soll.
Mein bisheriger Ansatz:
Sub falsche_Daten_loeschen()
Dim Speicherort
'Speicherort festlegen
Speicherort = Application.GetSaveAsFilename
'Speichervorgang
Blattname = Left(ActiveSheet.Name, Len(ActiveSheet.Name))
ActiveWorkbook.SaveAs Filename:= _
Speicherort & Blattname & ".xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
End Sub
Mein Problem: Beim Speicherort muss ich derzeit einen Namen eingeben. Gibt es einen Befehl, der mich nur den Ordner auswählen lässt?
|