Hallo.

Ich ver such mithilfe des untenstehenden Codes ne Datei zu speichern, krieg aber die Meldung "Zugriff verweigert".
Ein Schutz ist nicht vorhanden, daran kann es also nicht scheitern.
Ich versteh's einfach nicht.

Kann mir da jmd helfen?

Thx daniel

Private Sub Kopieren_ausgewählter_Bereich_Click()

Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim w As Worksheet
ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\.....\test2.xls"
SendKeys "~" 'enter
Set wks2 = ActiveWorkbook.Sheets(1)
Worksheets("Tabelle1").Range("A1:Q30").Delete
ActiveWorkbook.SaveAs <== hier kommt die Meldung "Zugriff verweigert"
ActiveWorkbook.Close
SendKeys "~" 'enter

ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\.....\test1.xls"
SendKeys "~" 'enter

Set wks1 = ThisWorkbook.Sheets(1)
Sheets("Tabelle1").Range("A1:q30").Select
Selection.Copy

ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\.....\test2.xls"
SendKeys "~" 'enter
Set wks2 = ActiveWorkbook.Sheets(1)

Sheets("Tabelle1").Range("A1:q30").Select
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats

ActiveWorkbook.SaveAs
SendKeys "~" 'enter
ActiveWorkbook.Close