Office: Linienstärke ändern

Hallo

Ich verwende folgenden Code

Sub Linie()
Columns("A:AA").Borders(xlEdgeBottom).LineStyle = xlNone
Weight = xlThick
For i = 2 To Range("A65536").End(xlUp).Row
x = Left(Cells(i, 1), 11)
y = Left(Cells(i + 1, 1), 11)
If x y Then
Range(Cells(i, 1), Cells(i, 35)).Borders(xlEdgeBottom).LineStyle = xlContinuous
'Weight = 100
Weight = xlMedium
End If
Next i
End Sub

Wenn sich in Spalte A der Wert ändert, soll eine Linie gezogen werden.
Das funktioniert auch. Ich möchte aber auch die Linienstärke verändern können. Wie kann ich das erreichen?

Gruß und Danke
Peter

:)

 

Hallo Peter,

mit Weight lagst du schon richtig:

 

Hallo Ingolf
Vielen Dank für Deine Antwort. Klappt super.
Noch eine Zusatzfrage:
Kannst Du den Code auch so ergänzen, dass sich die Linie automatisch an die Tabellenbreite anpasst (nicht über das gesamte Tabellenblatt)?

Gruß
Peter

 

Hallo Peter,

so?

 

Hallo Ingolf

Genau so

Vielen Dank und ein schönes Wochenende

Gruß
Peter