Ich habe ein Vergleich geschrieben der in zwei Arbeitsmappen bestimmte Zellen vergleicht. Jetzt möchte ich gerne das wenn ein Fehler auftritt, diese Zelle in dem der Fehler ist mit der Farbe (Rot) markiert wird, gleich zeitig soll die komplette Zeile A-X außer der Fehlerzelle in Gelb markiert werden damit man den Fehler leicht findet. Es soll in beiden Arbeitsmappen markiert werden.
Ich habe schon ein Makro mal ausgezeichnet aber damit kann ich leider nicht anfangen.
Danke für jede Hilfe
Hier ein Teil von meinen Programm
'Symbolkommentar (Deutsch) prüfen
If ActiveWorkbook.Worksheets("Step7-Projekt").range(Zelle2).value = ActiveWorkbook.Worksheets("Standardisierte-IL").range(Zelle).value Then
IL_Test.tb_protokoll.Text = (IL_Test.tb_protokoll.Text & "Die Variable " & Adresse & " erfolgreich" & vbCrLf)
Else ' Symbolcomment(Deutsch) falsch
IL_Test.tb_fehlerliste.Text = (IL_Test.tb_fehlerliste.Text & "Zeilennummer:" & plc_zeile & vbCrLf & "Fehler Symbolkommentar(Deutsch) " & Adresse & vbCrLf)
.Interior.ColorIndex = 65535
' ActiveWorkbook.Worksheets("Step7-Projekt").Rows(Zeile_step7).Select
'
' With Selection.Interior
' .Pattern = xlSolid
' .PatternColorIndex = xlAutomatic
' .Color = 65535 'Farbe gelb
' .TintAndShade = 0
' .PatternTintAndShade = 0
' End With
'
' ActiveWorkbook.Worksheets("Step7-Projekt").range(Zelle2).Select
'
' With Selection.Interior
' .Pattern = xlSolid
' .PatternColorIndex = xlAutomatic
' .Color = 255 'Farbe rot
' .TintAndShade = 0
' .PatternTintAndShade = 0
' End With
End If