Hallo
ich habe ein Makro welches mir den Inhalt aller Tabellenblätter einer Datei der Reihe nach in ein extra Tabellenblatt "work" kopiert. Dabei wird der Inhalt von Tabellenblatt X ab A1 in das Tabellenblatt work ab Position B1 eingefügt. In Spalte A kommt vor jede Zeile der Name des Tabellenblattes.
Ich verwende dieses Makro seit Monaten bei einem bestimmten Dateityp und es gab nie Probleme.
Heute wollte ich das Makro für eine andere Datei aufrufen und es kommt die Meldung
"excel kann ausgefüllte zellen nicht über das arbeitsblatt hinaus verschieben"
Was muss ich tun um mein Makro wieder zum Laufen zu bringen
Danke
Herbi
Code
For lngI = 1 To wksSheets.Cells(Rows.Count, 1).End(xlUp).Row
wksSheets.Cells(lngI, 1).EntireRow.Copy
lngTargetLastRow = Sheets(strTarget).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(strTarget).Cells(lngTargetLastRow + 1, 1).Activate
ActiveSheet.Paste
Sheets(strTarget).Cells(lngTargetLastRow + 1, 1).Range("A1").Insert _
shift:=xlShiftToRight
Sheets(strTarget).Cells(lngTargetLastRow + 1, 1).Value = wksSheets.Name
Next lngI