ich habe folgendes Problem, ich habe 2 Excel tabellen.Die erste ist die Lieste "Vordrucke" und als Extra Datei die Liste "ToDo Liste".
Jetzt sollen in die Liste "Vordrucke" Werte eingetragen werden und diese Liste soll dann unter anderem Namen gespeichert werden.
Da mehrere Leute diese Vordrucke ausfüllen möchte ich erreichen das bestimmte Zellen, mit der Funktion beforeSave in die ToDo Liste kopiert werden.
Es sollen von der Liste Vordrucke die Zelle A1 nach Nach der ToDo Liste in Spalte A unter dem Letzden eintrag.A1 soll drei mal dort hin untereinander
A55/56/57 sollen in die Spalte C untereinander neben die Einträge von Spalte A.
C 55/56/57 soll dann in B der ToDo Liste
und B 10 soll dreimal in Spalte D der ToDo Liste
ich hoffe Ihr könnt mir da noch folgen.
Da ich davon ausgehe das die ToDo Liste geschlossen ist müßte ich die Liste vorher öffnen Lassen und dan die Werte kopieren lassen. Wenn ich das richtig verstehe, mein Versuch sieht folgender maßen aus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i, LastRow
Workbooks.Open "G:\10.3\sachgebiet\10.32\10.322\Gemeinsam\Verwaltung Anlagen Kälteerzeugung\ _
Termine\ToDo Liste.xls"
LastRow = Sheets("todo liste").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To 2
Sheets("todo liste").Range("A" & LastRow + i) = ThisWorkbook.ActiveSheet.Range("A1")
Sheets("todo liste").Range("B" & LastRow + i) = ThisWorkbook.ActiveSheet.Range("A" & 55 + i)
Sheets("todo liste").Range("C" & LastRow + i) = ThisWorkbook.ActiveSheet.Range("C" & 55 + i)
Sheets("todo liste").Range("D" & LastRow + i) = ThisWorkbook.ActiveSheet.Range("A10")
Next
ActiveWorkbook.Close True
End Sub
Wenn ich dann auf Speichern gehe führt das Makro aus und gibt mir über den Debbuger folgendes raus.
Laufzeitfehler `9`:
Index außerhalb des gültigem Bereichs
Der Teil des Makros welcher dick geschrieben ist, ist der Teil der mir makiert wird.
Ich hoffe mir kann jemand Helfen.
Mit freundlichen Grüßen
Sebastian