![](https://images.gutefrage.net/media/default/user/12_nmmslarge.png?v=1551279448000)
![](https://images.gutefrage.net/media/default/user/12_nmmslarge.png?v=1551279448000)
Antwort
Select = True gibts nicht.
Select und merge musst auch nicht in zwei Zeilen packen. Läuft somit schneller in langen codes.
Und Counter1 muss 4 sein, nicht 3 :-)
Mach mal so: (Selbst getestet)
Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 4
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1, 1), Cells(Counter2, 1)).Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub
Feedback wäre toll :-P