Merge Anweisung per VBA
25.04.2017 23:05:27
Frank
folgender Gedankengang:
For i = 2 To 622 Step 20
Range("DL6:DM6").MergeCells(i, 116)
If i = 622 Then Exit For
Range("DL6:DM6").MergeCells(i, +20, 116)
Next
Leider funktioniert das nur beim erstenmal.Wenn ich den Bereich aber zigmal kopiere ist die Formatierung weg.Deswegen dieses Variante zum Schluss.
Wie muss es richtig lauten?
Lg Frank