Hallo,
Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?
Gerne auch Kritik und Anregungen zum Code. LG Syrena
Sub Bericht()
'Datei öffnen und einfügen
'-----------------------------------------------------------------
Dim Liste As Workbook
Dim Template As Workbook
Dim Dati As Variant
Set Template = ActiveWorkbook
Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
Set Liste = Workbooks.Open(Filename:=Dati)
Liste.Sheets("Tabelle1").Columns("A:E").Copy
Windows(Template.Name).Activate
Columns("A:E").Select
ActiveSheet.Paste
Workbooks(Liste.Name).Close savechanges:=False
'Neue Datei öffnen und abspeichern
'--------------------------------------------------------------------
Dim Projektbericht As Workbook
Set Projektbericht = Workbooks.Add
Dim Speicherpfad As String, Titel As String
Speicherpfad = "C:\ "
Titel = "Bericht"
Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel
End Sub