Hallo Zusammen,

bin verzweifelt, wer kann mir bei einem Makro helfen?
In der Spalte A bis J stehen Daten.
In der Spalte B stehen Produktnr, manche Produktnr. stehen mehrmals untereinander.
Das schaut in der Spalte B so aus:
101000
101000
115000
116000
188000
188000
180000

Das Makro soll die Zeilen in den Spalten A bis J mit den gleichen Produknr. automatschen mit einem scharzen Rahmen anzeigen.
Somit sollen die gleichen Produktnr. mit Rahmen umrandet werden.

PS: Die Zeilen fangen von A11 bis J11.
Zeilenende: A224 bis J224 (Ist oft unterschiedlich)

Mit dem Code unten gehts auch, aber leider werden nur die Zeilen der Spalte A und B markiert.

Sub Gruppieren_mit_Umrahmen()

Dim letzteZeile As Long, i As Long, Start As Range, Ende As Range
Dim Bereich As Range, WS As Worksheet

Set WS = ActiveSheet

letzteZeile = WS.Cells(65536, "B").End(xlUp).Row

Set Start = WS.Cells(1, "B")
For i = 2 To letzteZeile
    Set Ende = WS.Cells(i, "B")
    If Start.Text <> Ende.Text Then
        Set Bereich = WS.Range(Start.Address & ":" & Ende.Offset(-1, 0).Address)
        Set Bereich = Bereich.Offset(0, -1).Resize(, 2)
        Call RahmenZiehen(Bereich)
        Set Start = WS.Cells(i, "B")
    End If
Next i

Set Bereich = WS.Range(Start.Address & ":" & Ende.Address)
Set Bereich = Bereich.Offset(0, -1).Resize(, 2)
Call RahmenZiehen(Bereich)

Set Bereich = Nothing
Set Start = Nothing
Set Ende = Nothing
Set WS = Nothing

End Sub


Private Sub RahmenZiehen(ByVal Bereich As Range)
        Bereich.Borders(xlEdgeBottom).LineStyle = xlContinuous
        Bereich.Borders(xlEdgeLeft).LineStyle = xlContinuous
        Bereich.Borders(xlEdgeRight).LineStyle = xlContinuous
        Bereich.Borders(xlEdgeTop).LineStyle = xlContinuous
End Sub

Danke für Eure Hilfe...

lg Kate S.