Supportnet / Forum / Tabellenkalkulation

Public Sub fktvergleiche()
Dim intZeile    As Integer
Dim intFarbe    As Integer

For intZeile = 1 To 10
    If Cells(intZeile, 1).Value <> Cells(1, 1).Value Then
        For intFarbe = 1 To 10
            Cells(intFarbe, 1).Interior.ColorIndex = 4 ' grün
        Next
        Exit Sub
    End If
Next
For intFarbe = 1 To 10
    Cells(intFarbe, 1).Interior.ColorIndex = 3 'rotfärben
Next

End Sub

• Felder in excel?
• Excel - Daten vergleichen und niedrigsten Wert markieren
• Werte einer Tabelle vergleichen und in einer anderen Tabelle zusammenfügen
• excel dateien vergleichen
• 2 Excel Tabellen vergleichen und identische Zellen farbig hinterlegen