Clever-Excel-Forum

Guten Tag,

ich habe folgendes Problem:
Ich benutze unten stehenden VBA-Code. Soweit so gut. Er funktioniert auch super. Allerdings will ich jetzt das er die Daten nicht in einzelne Zellen (Beispiel A9 zu T9) kopiert sondern in verbundene Zellen (Beispeil A9 zu T9:V9) reinkopiert und das klappt nicht 
Kann man den Code umschreiben, damit das Funktioniert?

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(, 8).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


Freundliche Grüße und vielen Dank im Voraus

Hallo,

verbundene Zellen sind Murks, das hat in Excellisten nichts zu suchen.

Ich dachte anhand der Überschrift, das Makro solle Dir helfen, verbundene Zellen zu finden und zu töten. Das hätte ich gut gefunden.

EDIT: 
http://www.clever-excel-forum.de/Thread-...en-erkennt
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=0&h=91553#a123x
http://www.office-fragen.de/index.php?to...5#msg60455

Hola,

hier hat jemand das gleiche Problem:

http://www.online-excel.de/fom/fo_read.php?f=1&bzh=0&h=91553#a123x

Gruß,
steve1da

Hallo,

auch ich habe angenommen, Du willst Verbundene Zellen löschen.
Aber so, wie sich das jetzt darstellt, muß ich meine Hilfe verweigern.

Der gute Rejorable scheint seinen F..z in drei unschuldigen Foren vor dem Fallen seines Bleistifts abgelassen zu haben und meint, morgen würde ihm die Lösung zu Arbeitsbeginn präsentiert - und er bekäme eine Gehaltserhöhung.

Ist doch relativ einfach:
3 Themen hier im Board, 4 Beiträge
Ein Thema hat gar schröcklich viele Antworten, aber eher wenig vom TE.

… und jetzt schreibe ich eine PN an die Herren Moderatoren …
(den Verteiler habe ich ja)