Worksheets("Data_Input").Range(Cells(Rnga.Row, "A"), Cells(Rngb.Row, "Z")).Copy
Die beiden rot markierte Teile beziehen sich auf das Blatt in dem jener Code steht, während der blau markierte Teil sich auf das Blatt "Data_Input" bezieht.
Wenn das jetzt zwei verschiedene Blätter sind - rot und blau sind zwei verschiedene Blätter - dann kracht es in Excel. Der Grund ist simpel: Ein Bereich über 2 Blätter hinweg kann einfach nicht gebildet werden -> Laufzeitfehler.
Also explizit
With Worksheets("Data_Input")
.Range(.Cells(Rnga.Row, "A"), .Cells(Rngb.Row, "Z")).Copy
End With
schreiben.
Grüße
|