Moechte mit VBA Code zwei Werte aus unterschiedlichen Worksheets vergleichen, wenn sie ungleich sind, soll ein Wert rot ueberschrieben werden. Koennt Ihr mir helfen?
Danke!
Gruss
Robert
Sub Test()
If Sheets(1).Range("A1") <> Sheets(2).Range("A1") Then
Sheets(1).Range("A1").Font.ColorIndex = 3
End If
End Sub
Sub Test()
If Sheets(1).Range("A1") <> Sheets(2).Range("A1") Then
Sheets(1).Range("A1"):= Sheets(2).Range("A1").value.Font.ColorIndex = 3
End If
End Sub
Sub Test()
If Sheets(1).Range("A1") <> Sheets(2).Range("A1") Then
Sheets(1).Range("A1").Font.ColorIndex = 3
Sheets(1).Range("A1") = Sheets(2).Range("A1")
End If
End Sub