ich habe eine Spalte die so uassieht:
F
F
F
F
S
S
S
S
N
N
N
N
Nun möchte ich anhand der bedingten Formatierung immer dynamisch eine Linie zwischen F und S und S und N! Wie mache ich das ohne Hilfsspalte?
Gruß
Sub BereicheTrennen()
Dim rBereich As Range
Dim r As Range
Set rBereich = Range("A3:A15")
For Each r In rBereich
If r.Row > 1 Then
r.Select
r.Offset(-1, 0).Select
If r.Value r.Offset(-1, 0).Value Then
With r.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
Else
r.Borders(xlEdgeTop).LineStyle = xlNone
End If
End If
Next r
End Sub
=Index(A:A;Zeile())Index(A:A;Zeile()+1)