Hallo VBA Profis,
nach 2 Tagen intensiven Internetstudiums bin ich mal wieder ratlos und mit meinem VBA-Latein am Ende. Hoffe es kann mir hierbei jemand helfen. Hab zwei Dateien erstellt auf einer ist ein Button mit u.s. Makro
Es soll ein Bereich aus Tabelle1 B6:Y15 in eine andere Datei(Mappe1.xlsm) Tabellenblatt("Datenbank") in die nächste freie Zelle ab Zelle A6 kopiert werden. Bei jeder weiteren Betätigung des Buttons sollen in der nächsten freien Zelle der Spalte A die Werte eingefügt werden.
Zum Abschluss wird eine Kopie der Datei gespeichert.
Hier mein Codeversuch, funktioniert nur leider nicht, Laufzeitfehler9 wird angezeigt:
Sub KopieanDatenbank()
ActiveSheet.Range("B6:Y15").Copy
Workbooks("Mappe1.xlsm").Worksheets("Datenbank").Cells(Worksheets("Datenbank").Rows.Count, 1).End(xlUp).Offset(6, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveWorkbook.SaveCopyAs Filename:="C:\Dokumente\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & (Date) & "_" & Range("U1").Value & ".xlsm"
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End Sub
|