Bedingte Formatierung?

[Klaus-Dieter]

Hallo,

eine andere Idee wäre es, die Zeilen der verschiedenen Daten (plural von Datum) unterschiedlich einzufärben. Zellformate über VBA sind insofern problematisch, als man sie bei entsprechenden Veränderungen auch wieder explizit aufheben muss. Generell gilt für Zellformate: weniger ist oft mehr. Mit Zellrahmen arbeite ich für mein Teil fast gar nicht.

[_MCO_]

Hi!

So geht´s:

Code:

Sub Dicke_Abgrenzung()

    Set rws = Range("C3").CurrentRegion
    'rws.Borders
    With rws.Borders
        .LineStyle = xlNone 'erst löschen
        .LineStyle = xlContinuous 'neusetzen
        .Weight = 2 'Dicke
        .ColorIndex = 42 'Farbe
    End With
   
    For Each rw In rws.Offset(1, 0).Rows 'zeilenweise durchgehen
        If Cells(rw.Row, "C") <> "" _
            And Cells(rw.Row + 1, "C") <> "" _
            And Cells(rw.Row, "C") <> Cells(rw.Row + 1, "C") Then
       
            With Range("A" & rw.Row & ":E" & rw.Row).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = 3
                .ColorIndex = 0
            End With
        End If
    Next rw
End Sub

Gruß, MCO

[Gh0sT_89]

Perfekt,

Ich danke dir vielmals. 👌

[slowboarder]

Hi

wenn man fette Linien per bedingter Formatierung haben will, kannst man auch "rückwärts" vorgehen.
du machst alle Linien fett und fügst die dünne oder auch keine Linie über die bedingte Formatierung ein.
Gruß Daniel

[Klaus-Dieter]

Hallo,

an die Freunde von dicken und dünnen Linien in Excel: ihr habt es mit einer Tabellenkalkulation zu tun, nicht mit einen Grafik-Programm.

[slowboarder]

ja aber auch eine Tabelle lässt sich leichter lesen, wenn sie strukturiert ist.
Außerdem muss man dann nicht die Exceltabelle erst noch über ein Grafikprogramm laufen lassen, damit sie gut aussieht.
Außerdem würde ich eine einfache gerade Linie noch nicht als Grafik bezeichen. Sowas ist teil jeder Tabelle.