Zelle formatieren wenn Datum sich ändert

[maine-coon]

Hallo liebe Experten,

Gesamter Zellbereich geht von A2 bis I121.
In Spalte H steht das Datum.
Annahme von H2 bis H30 steht immer 08.02.22.
Ab Zelle H31 steht 09.02.22.
Jetzt möchte ich dass die Zelle H30 unten einen dicken Rahmen erhält.
So als optische Abgrenzung, weil ab H31 ein anderes Datum steht.
Das Sortieren des Bereichs ist kein Problem.

Aber wie mache ich das mit dem Formatieren der Zelle, bzw. der ganzen Zeile A30:I30?

Danke für Tipps dazu.

[steve1da]

Hola,

ungetestet:
A2 bis I121 markieren.
Als Formel in der bedingten Formatierung:
=$H2<>$H3
Gruß,
steve1da

[maine-coon]

Ich glaube, da habe ich mich wohl etwas unglücklich ausgedrückt in meinem Anliegen.
Ich habe 2 VBA Makros. Das eine sortiert den Bereich nach Spalte Datum, das andere nach Spalte Name.
Es muss eine VBA Lösung sein, die genau die ROW anders formatiert, sobald das Datum der nächsten ROW ein anderes ist.

PHP-Code:

Private Sub CommandButton1_Click() 'Nach Datum Spalte H sortieren
    Range("A1:I121").Select
    ActiveWorkbook.Worksheets("Neue Liste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Neue Liste").Sort.SortFields.Add Key:=Range( _
        "H2:H121"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Neue Liste").Sort.SortFields.Add Key:=Range( _
        "I2:I121"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Neue Liste").Sort.SortFields.Add Key:=Range( _
        "B2:B121"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Neue Liste").Sort
        .SetRange Range("A1:I121")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A121"), Type:=xlFillDefault
    Range("A2:A121").Select
    Range("B2").Select
End Sub 


[schauan]

Hallöchen,

Es muss eine VBA Lösung sein,

1) Warum reicht denn die bed. F. nicht?
2) die bed. F. enthält eigentlich schon einen Ansatz für eine VBA - Lösung. Gehe in einer Schleife alle Zeilen durch und prüfe ...

[maine-coon]

Guten Abend,

ich habe es mit der Formatierung der Zelle UNTEN DICKER RAHMEN nicht hinbekommen.
Aber dafür funktioniert es mit der Farbe.

PHP-Code:

For x = 2 To 121
    If Cells(x, 8) <> Cells(x + 1, 8) Then
       Range(Cells(x + 1, 1), Cells(x + 1, 9)).Interior.ColorIndex = 19
    End If
Next x