Problem mit "SaveAs" Workbook
05.02.2007 11:11:18
Thomas
ich habe eine Datei welche mit Daten aus Feldern per Cmd-Button gespeichert werden soll. Dies hat auch soweit immer funktioniert. Heute jedoch verweigert diese Funtion ihren Dienst mir folgenden Hinweis:
"Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen"
Debuggen bringt mich auf folgende Zeile:
ActiveWorkbook.SaveAs Filename:=Pfad & Datei
Der Gesamt Code hierfür ist
Private Sub CommandButton4_Click()
Dim Pfad$, Datei$, Endg$
Pfad = "\\1-server\11 Unterhalts Sonder Baureinigung\09 Material\1 Eingang"
If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
With ActiveSheet
Datei = .Range("B13") & " " & .Range("B9") & " " & Format(.Range("B15"), "DD.MM.YY")
End With
If Datei = "" Then
MsgBox "Objektname wurde nicht eingegeben"
Exit Sub
End If
Endg = ".xls"
If LCase(Right(Datei, 4)) <> Endg Then 'Prüfung ob Zelle bereits Endung enthält
Datei = Datei & Endg
End If
ActiveWorkbook.SaveAs Filename:=Pfad & Datei
BestellENDE.Show
End Sub
Kann mir hierzu jemand helfen? Sehe irgendiwe nicht durch...
MfG aus Berlin
Thomas R.