Profil von verreisterNutzer

21.02.2019, 11:45

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

...zum Beitrag

Antwort

von verreisterNutzer

21.02.2019, 11:51

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

...zur Antwort