Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo Zusammen,

ich benutze unten stehenden Code. Also er kopiert mir die Daten in andere Zellen (nebeneinander) und jedes mal dann untereinander wenn ich nochmal auf den Button drücke. Das funktioniert auch super solange die Zellen in die er kopieren soll einzeln sind (also Bsp. A9 nur T9). Sobald ich versuche in verbundene Zellen (Bsp. A9 zu T9:V9) zu kopieren klappt es leider nicht. Kann man den Code irgendwie anpassen, das Excel diese hürde überwindet? Die verbundenen zellen sind immer 3 nebeneinander.

Wäre cool wenn jemand eine Idee hat. Vielen Dank im voraus.

Sub Schaltfläche1_Klicken()
   With Tabelle1.Cells(Tabelle1.Cells(Rows.Count, 20).End(xlUp).Row + 1, 20)
       .Value = .Parent.Range("A9").Value
       .Offset(, 1).Value = .Parent.Range("A13").Value
       .Offset(, 2).Value = .Parent.Range("E13").Value
       .Offset(, 3).Value = .Parent.Range("I13").Value
       .Offset(, 4).Value = .Parent.Range("E24").Value
       .Offset(, 5).Value = .Parent.Range("K27").Value
       .Offset(, 6).Value = .Parent.Range("A18").Value
       .Offset(, 7).Value = .Parent.Range("E18").Value
       .Offset(, .Value = .Parent.Range("A21").Value
       .Offset(, 9).Value = .Parent.Range("E21").Value
       .Offset(, 10).Value = .Parent.Range("F16").Value
       .Offset(, 11).Value = .Parent.Range("I15").Value
       .Offset(, 12).Value = .Parent.Range("A15").Value
       .Offset(, 13).Value = .Parent.Range("A24").Value
       .Offset(, 14).Value = .Parent.Range("I9").Value
       .Offset(, 15).Value = .Parent.Range("E9").Value
       .Offset(, 16).Value = .Parent.Range("A27").Value
       .Offset(, 17).Value = .Parent.Range("E27").Value
       .Offset(, 18).Value = .Parent.Range("I27").Value
       
     
   End With
End Sub