VBA - Text in Zellen gleich/ungleich
07.09.2022 15:30:39
Selina
Um Das Problem herunterzubrechen, habe ich für den Vgl. von 2 Spalten folgende Formel geschrieben, aber sie funktioniert nich richtig, geschweige denn dass ich drei Spalten vergleichen könnte.
Sub GleichUngleich()
Dim i As Integer
For i = 1 To 2
If Cells(i, 1).Value = Cells(i, 2).Value Then
Cells(i, 3).Value = "Gleich"
Cells(i, 3).Interior.ColorIndex = 4
Else
Cells(i, 3).Value = "Ungleich"
Cells(i, 3).Interior.ColorIndex = 3
End If
Next
End Sub
Wer kann helfen?