Sub
Makro1()
Dim
rngBereich
As
Range
Dim
rngZelle
As
Range
Dim
loLetzte
As
Long
With
Sheets(
"Tabelle1"
)
loLetzte = .Cells(.Rows.Count, 105).
End
(xlUp).Row
Set
rngBereich = .Range(.Cells(1, 105), .Cells(loLetzte, 105))
Application.DisplayAlerts =
False
For
Each
rngZelle
In
rngBereich
If
rngZelle.Value =
True
Then
.Range(.Cells(rngZelle.Row, 2), .Cells(rngZelle.Row, 91)).Merge
With
.Range(.Cells(rngZelle.Row, 2), .Cells(rngZelle.Row, 91))
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText =
False
.Orientation = 0
.AddIndent =
False
.IndentLevel = 0
.ShrinkToFit =
False
.ReadingOrder = xlContext
.MergeCells =
True
End
With
End
If
Next
rngZelle
End
With
Application.DisplayAlerts =
True
End
Sub