bedingte Formatierung vom 05.03
21.03.2013 13:45:12
Snewi
habe es leider jetzt erst geschafft zu testen, sorry!
Also im Prinzip macht er schon mal das richtige nur leider auf einen Spalte bezogen!
Sub BereicheTrennen()
Dim rBereich As Range
Dim r As Range
Set rBereich = Range("C6:C500")
For Each r In rBereich
If r.Row > 1 Then
If r.Value r.Offset(-1, 0).Value Then
With r.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Else
r.Borders(xlEdgeTop).LineStyle = xlNone
End If
End If
Next r
End Sub
Wie stelle ich das an?
Gruß
Anzeige