ich habe folgenden VBA Code, der zwei Zeilen untereinander vergleicht und wenn beide Zahlen ungleich ist, wird die Zelle markiert:
Sub Vergleichsoperatoren()
Dim Zelle As Range
For Each Zelle In Range("A2:A10000")
If Zelle.Value = Zelle.Offset(1, 0).Value Then
Else: Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub
Dies sieht dann wie folgt aus:1
1 (Rot Markiert)
2
2
2 (Rot Markiert)
3
3 (Rot Markiert)
Nun soll folgendes gemacht werden. Ist eine Zelle in Spalte A rot markiert, soll die entsprechende Reihe komplett markiert werden und ein Unterstrich gesetzt werden.
Sub Test()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Interior.ColorIndex = 3 Then
EntireRow.Select 'Befehl ist falsch, aber den richtigen habe ich noch nicht gefunden
End If
Next rng
End Sub
Der Befehl für das setzen des Unterstrichs lautet: Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Hier wüsste ich nicht, wo und wie ich den einbauen könnte.