Hallo Excelexperten,
Nach dem Einfügen in die Aktive Tabelle (Spalte 3) wird die ActiveCell.Offset(0, 2) mit der Tabelle Info").Cells(j, 2) der Inhalt verglichen, ist der Wert unterschiedlich, dann wird er übernommen.
Wenn der Wert übernommen wird sollte er in der Aktiven Tabelle
ActiveCell.Offset(0, 8) farlich ( Font.ColorIndex = 3) gekennzeichnet werden. Wie muß ich den Code verändern?
Gruß
fedjo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 3 Then 'Spalte C
Dim j As Integer
EndeQ = Worksheets("Info").Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A
For j = 1 To EndeQ
If ActiveCell.Offset(0, 2) = Sheets("Info").Cells(j, 1) Then _
ActiveCell.Offset(0, 8) = Sheets("Info").Cells(j, 2).Value 'Spalte B
Next j
End If
End Sub