Speichern klappt nicht, bitte um Hilfe

Hallo Leutz,
ich habe mir da folgenden Code aus dem Forum für mich zurechtgebastelt. Leider funzt der nicht so richtig.


Sub Speichern_unter()
Application.ScreenUpdating = False
Dim neuName As String, neuName2 As String
neuName = Range("A1").Text
neuName2 = Range("B1").Text
ActiveWorkbook.SaveAs Filename:="P:\TESTRECHNUNGEN\" & neuName & ".xls", _ FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Die Datei wurde unter P:\TESTRECHNUNGEN\ " & neuName & neuName2 _ & " gespeichert !", vbibformation
Application.ScreenUpdating = True
End Sub

Ich möchte erreichen, das die Datei beim Abspeichern mit den in den oben genannten Zellen abgespeichert wird. Kann mir bitte jemand helfen? Ich Danke euch schon mal für Eure Mühen
mfg
Max

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Speichern_unter() Application.ScreenUpdating = False Dim neuName As String, neuName2 As String neuName = Range("A1").Text neuName2 = Range("B1").Text ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Temp\" & neuName & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False MsgBox " Die Datei wurde unter P:\TESTRECHNUNGEN\ " & neuName & neuName2 & " gespeichert !", vbibformation Application.ScreenUpdating = True End Sub

Hallo Thomas
verstehe ich nicht. Ich bekomme immer nur den Fehler:
Laufzeitfehler '1004'
Microsoft Excel kann auf die Datei 'P:\TESTRECHNUNGENxxx.xls' nicht zugreifen. Dies kann mehrere Gründe haben:
- Der Name des Dokuments oder der Pfad existieren nicht.
- Das Dokument, das geöffnet werden soll, wird von einem anderen Benutzer oder Programm verwendet. Schließen Sie das Dokument in dem andreren Programm und versuchen Sie es erneut.
- Der Name der Arbeitsmappe, die gespeichert werden soll, ist identisch zu dem Namen eines anderen Dokuments, welches Schreibgeschützt ist. Versuchen Sie die Arbeitsmappe unter einem anderen Namen zu speichern.
Dann noch zwei Buttons ( Beenden und Debuggen )
keine Ahnung was ich falsch mache
mfg
Max

Sub Speichern_unter() Application.ScreenUpdating = False Dim neuName As String, neuName2 As String Dim str As String Const LW = "P:\" Const Pfad = "P:\TESTRECHNUNGEN" neuName = Worksheets("Tabelle1").Range("A1").Text neuName2 = Worksheets("Tabelle1").Range("B1").Text str = neuName & neuName2 ChDrive LW ChDir Pfad ActiveWorkbook.SaveAs Filename:=Pfad & str & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False MsgBox " Die Datei wurde unter " & Pfad & str & ".xls gespeichert !", vbibformation Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Speichern klappt nicht, bitte um Hilfe

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread