Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Rejorable am November 21, 2017, 16:39:28 Nachmittag
-
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(, 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
-
Nettes abgewandeltes X-Posting, aber warum soll Excel verb. Zellen erkennen, wenn ein normaler die nicht verwendet?
http://www.clever-excel-forum.de/Thread-VBA-das-Verbundene-Zellen-erkennt (http://www.clever-excel-forum.de/Thread-VBA-das-Verbundene-Zellen-erkennt)
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=0&h=91553#a123x (http://www.online-excel.de/fom/fo_read.php?f=1&bzh=0&h=91553#a123x)
http://www.office-fragen.de/index.php?topic=52018.msg60455#msg60455 (http://www.office-fragen.de/index.php?topic=52018.msg60455#msg60455)
Du solltest außerdem das Dark-Sunglasses-Smilie aus dem Kot entfernen. Es stinkt.
-
1. Crossposting (http://www.excel-ist-sexy.de/forenhilfe/crossposting/) ohne gegenseitige Verweise ist einfach nur egoistisch und Mist!
2. Verbundene Zellen (http://www.excel-ist-sexy.de/verbundene-zellen/) sind wirklich blöd und machen nur Ärger!