|
Hallo liebe Gemeinde,
ich habe ein Thema wo ich eure Hilfe benötigen würde.
Ich versuche das Problem zu schildern:
Das Excel Marko soll unter der aktuellen Zelle eine Zeile hinzufügen und dann jede Zelle (in den Spalten) in dieser neuen Zeile mit der darüberliegenden Zelle verbinden. Soweit so einfach. Nun habe ich allerdings das Problem das darüber schon 2 oder mehr zellen miteinander verbunden sind und er deshalb nicht mehr als 2 miteinander verbindet. Folglich sollte er wenn schon 2 Zellen verbunden sind eine dritte hinzufügen. Im Code sollte dann A1:A3 zusammengefügt werden.
ActiveCell.Offset(1, 0).Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Range("A1:A2").Select
Selection.Merge
ActiveCell.Range("B1:B2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
ActiveCell.Offset(0, 1).Range("A1:A2").Select
Selection.Merge
Danke euch für die Hilfe!!
|