Hallo Zusammen

Ich habe ein Problem mit einem Modul. Beim Ausführen kommt eine Fehlermeldung, ich kann aber den Fehler nicht finden. Kann mir jemand von euch helfen? Ich wäre dem- oder derjenigen ewig und drei Tage lang dankbar (mindesten!).

Als Fehlerhaft wird das hier angegeben:

Set rngTarget1 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(4, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(8, Columns.Count).End(x1ToLeft).Offset(0, 1))

Die Fehlermeldung lautet:
"Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler

Ziel des Moduls ist es, Daten aus einem Tabellenblat (die Daten sind immer am gleichen Ort) zu kopieren und in ein anderes Tabellenblatt einzufügen. Die Zellen im Ziel sind variabel.
Will heissen, beim ersten ausführen, sollen die Zellen in Spalte B eingetragen werden, beim zweiten Ausführen in Spalte C, beim Dritten in Spalte D, usw.

Vielen herzlichen Dank schon im Voraus und ganz liebe Grüsse.



P.S.: Hier noch das ganze Modul:

Sub DatenSchreiben()

'Volumen
Dim rngSource1 As Range
Dim rngTarget1 As Range
Dim rngSource2 As Range
Dim rngTarget2 As Range
'Versicherte
Dim rngSource3 As Range
Dim rngTarget3 As Range
Dim rngSource4 As Range
Dim rngTarget4 As Range
'Anschlüsse
Dim rngSource5 As Range
Dim rngTarget5 As Range
Dim rngSource6 As Range
Dim rngTarget6 As Range

'Volumen
Set rngSource1 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("B4:B8")
Set rngTarget1 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(4, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(8, Columns.Count).End(x1ToLeft).Offset(0, 1))
Set rngSource2 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("B11:B13")
Set rngTarget2 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(9, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(11, Columns.Count).End(x1ToLeft).Offset(0, 1))
'Versicherte
Set rngSource3 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("D4:D8")
Set rngTarget3 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(13, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(17, Columns.Count).End(x1ToLeft).Offset(0, 1))
Set rngSource4 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("D11:D13")
Set rngTarget4 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(18, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(20, Columns.Count).End(x1ToLeft).Offset(0, 1))
'Anschlüsse
Set rngSource5 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("F4:F8")
Set rngTarget5 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(22, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(26, Columns.Count).End(x1ToLeft).Offset(0, 1))
Set rngSource6 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Übersicht"). _
                 Range("F11:F13")
Set rngTarget6 = Workbooks("Monday-Call.xlsm"). _
                 Worksheets("Diagramme"). _
                 Range(Cells(27, Columns.Count).End(x1ToLeft).Offset(0, 1), Cells(29, Columns.Count).End(x1ToLeft).Offset(0, 1))

rngSource1.copy rngTarget1
rngSource2.copy rngTarget2
rngSource3.copy rngTarget3
rngSource4.copy rngTarget4
rngSource5.copy rngTarget5
rngSource6.copy rngTarget6

Set rngSource1 = Nothing
    rngTarget1 = Nothing
    rngSource2 = Nothing
    rngTarget2 = Nothing
    rngSource3 = Nothing
    rngTarget3 = Nothing
    rngSource4 = Nothing
    rngTarget4 = Nothing
    rngSource5 = Nothing
    rngTarget5 = Nothing
    rngSource6 = Nothing
    rngTarget6 = Nothing


End Sub