Wie muss ich diesen Code ändern, damit die Datei nicht im Ordner "Eigene dateien" gespeichert wird, sondern im aktiven Pfad (der Quelldatei).
Private Sub CommandButton1_Click()
Dim str As String
str = Worksheets("Datenbank").Cells(1, 1).Value
ThisWorkbook.SaveAs str
End Sub
Danke für die Hilfe!
mfg, Sascha