Linie fett immer unter letzte Zeile
27.08.2021 12:37:10
Pierre
ich hätte da mal wieder ein Problemchen:
Ich habe in VBA programmiert, dass wenn Bx = Bx-1 ist, eine gestrichelte Linie gezogen wird.
Wenn Bx Bx-1 ist, dann eine druchgezogene Linie.
Klappt wunderbar.
Nun möchte ich aber, dass immer nur unter der letzten genutzten Zeile eine fette Linie gezogen wird.
Wenn ich nun in B3 z.B. den bisher letzten Eintrag habe, ist dort die fette Linie.
Schreibe ich nun in B4 den selben Eintrag wie in B3, wird die fette Linie unter B3 durch eine gestrichelte Linie ersetzt.
Das soll auch so sein.
Schreibe ich aber in B4 etwas anderes, bleibt die fette Linie unter B3 erhalten und unter B4 erscheint noch eine fette.
Das soll nicht so sein.
Die Liste wird immer nach unten erweitert, die fette Linie soll also sozusagen mitwandern und durch normale bzw. gestrichelte Linie wieder ersetzt werden.
Mein Code:
Zeilenzahl5 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For m = 2 To Zeilenzahl5
If Range("B" & m) Range("B" & m - 1) Then
Range("A" & m, "N" & m).Borders(xlEdgeTop).LineStyle = xlContinuous
End If
If Range("B" & m) = Range("B" & m - 1) Then
Range("A" & m, "N" & m).Borders(xlEdgeTop).LineStyle = xlDashDot
End If
With Range(("A" & Zeilenzahl5), ("N" & Zeilenzahl5))
With .Borders(xlEdgeBottom)
.Weight = xlThick
.LineStyle = xlContinuous
End With
End With
next m
Genauso, wenn ich es aus der "For Next" Schleife raus nehme, gehts auch nicht.
Hoffe, dass mir hier wer sagen kann, was ich im Code ändern muss.
Gruß Pierre
Anzeige