Hallo zusammen,
ich bin Einsteigerin, wenn es um VBA geht. Ich habe ein Makro im Internet gefunden und habe es angepasst. Es sollte die Zellen in der Zeile 2 verbinden (immer zwei, B2:C2, D2:E2, usw.), so lange da der Text steht. Stattdessen verbindet das Makro immer 2 Zellen, bis zum Ende der Zeile, so dass das Excel manchmal abstürzt.
Ich würde mich über eure Idee sehr freuen, wie ich das Problem lösen kann. Vielen lieben Dank im Voraus!
Hier noch den Link zu meiner Tabelle: https://drive.google.com/file/d/1Vvgy3Vi3sGOz9Bih3Wg-QfXqj8oaUTJB/view?usp=sharing
Sub Makro()
Dim i As Long
With ActiveSheet
For i = 2 To .Cells(Columns.Count, 1).End(xlToRight).Column Step 2
With .Cells(2, i).Resize(1, 2)
.Merge
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
End With
Next i
End With
End Sub
|