Ich will ein aktives Tabellenblatt ohne rückfragen in einer datei speichern dessen name und pfad in bestimmten zellen eines weiteren tabellenblattes stehen. wie kann ich das machen.
Vielen vielen Dank im Voraus!
der alex
Sub Speichern()
Dim wb As Workbook
ActiveSheet.Copy
With ThisWorkbook.Worksheets("Tabelle1") 'anpassen (da stehen Pfad + Name)
On Error GoTo ErrorHandler
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs .Range("A1") & "\" & .Range("B1") & ".xls"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End With
Exit Sub
ErrorHandler:
MsgBox Err.Description, , "Fehler: " & Err.Number
Application.DisplayAlerts = True
End Sub