VBA - Hilfe bei Makro: Zellen in Schleife mergen
08.05.2008 09:59:00
vux
ich will in einem Bereich bestimmte Zellen mergen.
a) Anfangszeile ist immer die selbe
b) End Zeile ist markiert (durch einen Eintrag in einer Zelle)
c) Alle Zellen von Spalte K bis S mergen (Zeile dynamisch)
Weiß leider nicht wie die Syntax für c) ist.
Kann mir jemand helfen?
Sub MergeCells()
Row As Integer
a) Row = 36
b) Do While ActiveWorksheet.Cells(StartRow, 3).Value "insert new lines just above"
c) Range(K ROW:S ROW).Select With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Row = Row + 1
Loop
End Sub