|
Hallo zusammen,
um die Datenreihen aus mehreren Tabellen in eine Tabelle "Gesamt" zu übertragen, habe ich folgenden Code gebastelt. Ab und zu funktioniert der auch, meistens kommt aber eine Fehlermeldung "Anwendungs- oder objektbezogener Fehler" und der Debugger markiert mir die letzten beiden Zeilen des u.a. Codes.
Der zu übertragende Inhalt steht in Tabelle "Müller" in den Zeilen ab A14:N14 und soll in "Gesamt" immer in der letzten freien Zeile eingefügt werden. Kann mir eventuell jemand helfen diese Fehlermeldung wegzubekommen?
Danke Euch!!
LZeile = Sheets("Müller").Cells(Rows.Count, "A").End(xlUp).Row
LZeile2 = Sheets("Gesamt").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Müller").Range(Cells(15, 14), Cells(LZeile, 1)).Copy _
Destination:=Sheets("Gesamt").Range("A" & LZeile2 & ":N" & LZeile2) |