Betinget formatering

Bogstaverne vil jeg bruge til at bestemme baggrundsfarven !

ups der kan også være

12S  12S 12S 13S 13S

skal vises

12                  13

Skriv i B1:
=hvis(venstre(b1;længde(b1)-1)<>venstre(a1;længde(a1)-1);venstre(b1;længde(b1)-1);"")
og træk formlen helt til højre,
marker derefter hele række 1 og træk formlen nedad.

finb

Har dit forslag ikke cirkulære referencer???

Hej Jan Hansen

Jeg har lavet et lille eksempel, med formlerne fra finb. Jeg har lavet formlerne på ark2. Dermed ingen cirkulære referencer.
Du kan så lave dine betingede referencer hvor du vil. På ark1 eller ark2.

https://www.dropbox.com/s/457tlcsy5euc99r/Betinget%20formatering%20jan%20hansen.xlsx?dl=0

Tak, så må jeg se om jeg kan lave det om til betinget formatering eller en vba løsning, da det skal bruges på samme ark, kan ikke bruge hjælpe-ark eller kolonner.

Jo, det er nok noget vrøvl, jeg skrev.
Fra hukommelsen:
Måske skal du i betingelserne skrive en formel ala:
tæl.hvis : hvis mindst én Celle til venstre for aktuel celle er lig aktuel celle,
så gør dit , og ellers gør dat.

Kan en makro i stil med dette bruges?

Sub IndramOgFarv()
Dim LastRow, LastCol, C, R, S As Integer
'Erase old formatting
Cells.Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
'Count Rows and Columns
LastRow = ActiveSheet.UsedRange.Rows.Count
LastCol = ActiveSheet.UsedRange.Columns.Count
'Loop
For R = 2 To LastRow
S = 1
For C = 1 To LastCol
If Cells(R, C) <> Cells(R, C + 1) Then
'Format
Range(Cells(R, S), Cells(R, C)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
S = C + 1
If C <> LastCol Then Cells(R, C + 1).Interior.Color = 255
End If
Next
Next
End Sub

Klaret med inspiration fra Jens
Takker for deltagelse