Hallo liebe Leute.
Ich wollte ein VBA Scribt schreiben, der es mir ermöglicht automatisch Zellen zu verbinden und das in einer schleife.
Also z.B. A1:b1 danach A2:B2 dann A3:B3 usw.
Hab da auch schon was geschrieben, aber ich glaube er versteht mich nicht^^.
Woran liegt es? Könnt Ihr mir da helfen?
Sub Makro2()
’
’ Makro2 Makro
’
’
For i = 1 To 5
Range(Cells(i, 2), Cells(i, 3)).Select
ActiveWindow.SmallScroll Down:=3
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Next i
End Sub