Office: (Office 365) zeilenweise Zellen per VBA verbinden

Guten Morgen zusammen,

ich möchte beginnend ab der Zeile/Zelle A29 den Bereich A29:E29 per MERGE verbinden sowie jeweils zeilenweise eine individuelle Anzahl an Zeilen im jeweils gleichen Bereich darunter. Die Anzahl der zu verbindenden Zeilen steht als Wert in Zelle S32.

Wie kann man das per VBA realisieren ?

Danke für Deine Antwort im Voraus.
Jens

 

Hi,

ich denke mit meiner Antwort in deinem anderen Thread hat sich diese Frage erübrigt.

Aber um deine Frage zu beantworten:

Code:

Range("A29:E29").Resize(Range("S32")).Merge True

Oder wenn du es gerne umständlich magst;

Code:

Dim i As Long
For i  = 0 To Range("S32") - 1
    Range("A" & 29 + i & ":E" & 29 + i).Merge
Next i

 

Guten Morgen Helmut,

dank Deinem Code hat es nun geklappt wie ich es wollte. Unten noch für meinen Fall angepasst.
Ganz herzlichen DANK noch mal dafür.


Dim i As Long
For i = 0 To Sheets("Data").Range("S32") - 1
Sheets("Angebot").Range("A" & 29 + i & ":E" & 29 + i).Merge
Next i

 

Hi,

herzlichen Glückwunsch, damit hast du dich dann für die schlechteste (aufwändigste in Bezug auf Codegröße und Ausführzeit) aller Methoden entschieden.

Die beste Methode wäre es, auf die verbundenen Zellen zu verzichten. Die zweitbeste, die kopierten verbundenen Zellen auf einen Schlag in alle gewünschten Zeilen einzufügen (siehe anderer Thread), die drittbeste die Kopie per Schleife einzufügen, die viertbeste die Zellen vor oder nach dem Kopieren per "Menge True" zeilenweise zu verbinden und die schlechteste alles einzeln zu kopieren und dann die Zeilen einzeln zu verbinden.

Aber jeder so, wie er will...

 

Ich weiß Deinen Einwand sehr zu schätzen und weiß um die Problematik von verbundenen Zellen.
Dennoch ganz lieben Dank für Deine Mühen.

 

Hallo Schwälbchen,

offenbar nicht, sonst würdest du die nicht benutzen.

 

Hi,

wenn du schon verbundene Zellen (angeblich) brauchst, so ist das dennoch keinen Grund den ineffizientesten VBA-Code zu verwenden. Wozu eine Schleife verwenden wenn ein einziger Befehl reicht?