Hallo
ich gehe jetzt mal nur von deinem beschriebenen Fehlercode aus
wenn das aktuell aktive Tabellenblatt nicht "Diagramm" heißt
wird ohne referenzierung immer auf das aktuelle Blatt verwiesen
übersetzt heißt das hier zum Beispiel
Range(Cells(4, Columns.Count)
(Blatt Diagramm)Range((aktives Blatt)Cells(4, (aktives Blatt)Columns.Count)
pack das ganze in eine With-Anweisung
With Workbooks("Monday-Call.xlsm").Worksheets("Diagramme")
Set rngTarget1 = .Range(.Cells(4, .Columns.Count).End(x1ToLeft).Offset(0, 1), _
.Cells(8, .Columns.Count).End(x1ToLeft).Offset(0, 1))
End With
beachte dabei die Punkte vor Range, Cells und Columns.Count
damit wird auf das Blatt in der With-Anweisung verwiesen
MfG Tom
|