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
Ich prüfe die Spalte C6:C500 es soll aber B bis F unterlegt werden!Wie stelle ich das an?
Gruß