Problem bei SaveAs
04.02.2016 10:02:43
Peter
seit Stunden sitze ich über einem Problem und kann dies nicht lösen.
Das Makro welches nicht funktioniert anbei:
Sub SaveFile()
Dim Tabelle As String
Dim Tabelle1 As String
Dim Tabelle2 As String
Dim fdate As Date
Dim fname As String
Dim path As String
Dim Name As String
Dim Ordner As String
Dim strTyp As String
Dim strDateiname As String
Dim aktPfad As String
Tabelle = Worksheets(7).Range("P4").Value
Tabelle1 = Worksheets(2).Range("X1").Value
Tabelle2 = Worksheets(7).Range("L4").Value
aktPfad = Worksheets(7).Range("P12") 'liest den aktuellen Pfad dieser Datei aus
Name = Worksheets(2).Range("X1")
fdate = Worksheets(Tabelle).Range("L4").Value
path = aktPfad & "\" & "Kopierkosten laufend" & "\" 'Application.ActiveWorkbook.path 'fehler
Ordner = "\" & "Kopierkosten_laufend" '& "\"
strDateiname = Tabelle1 & "_" & Tabelle2 & "." & strTyp
strTyp = "." & "xlsm" 'Evtl. Anpassen wenn xlsm Datei! 'vorher xlsx
If fdate > 0 Then
fname = Name & "_" & fdate
ChDir path
ActiveWorkbook.SaveAs Filename:="path & strDateiname, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False"
Else
MsgBox "Chose a date for the event", vbOKOnly
End If
End Sub
'ChDir "C:\Users\Peter\Desktop\Kopierkosten\Kopierkosten laufend"' ActiveWorkbook.SaveAs Filename:= _
' "C:\Users\Peter\Desktop\Kopierkosten\Kopierkosten laufend\Kopierkostenabrechnung_15.04.2015.xlsm" _
' , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Es funktioniert alles bis auf die Zeile ab ActiveWorkbook.SaveAs....
Die darunter befindlichen 5 Zeilen sind das Produkt durch Makrorekorder.
ChDir Path bringt: C:\Users\Peter\Desktop\Kopierkosten\Kopierkosten laufend\
Ich weiss nicht wo das Problem liegt. Bitte helft mir.
Gruss Peter