Speichern mit Pfadangabe
23.01.2009 00:35:00
Larissa
weiß jemand, warum mein Makro immer nur unter "Eigene Dateien" abspeichert?
Ich habe doch den Pfad angegeben?
Sub Speicherpfad ()
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = "C:\Lieferscheine_2009"
Lsnr = ActiveSheet.Range("H16")
SpeicherName = Lsnr & "_" & Format(Date, "DDMMYY") & ".xls"
ActiveWorkbook.SaveAs Filename:=SpeicherName
ActiveWindow.Close SaveChanges:=True
End Sub
Lieben Gruß,
Larissa
Anzeige