If-Abfrage
07.02.2004 17:08:34
Erich M.
komme nicht dahinter wie ich folgenden Code ergänzen muss, dass bei der
Prüfung ob zwei Zellen identisch sind, entweder "Abweichung" oder
"keine Abweichung" eingetragen wird. Ich schaffe nur einen Wert!!
Sub Abweichung()
' Prüfung ob Zellen identisch
Dim i As Integer
Cells(1, 4) = "Prüfung"
For i = 2 To 50
If Cells(i, 2) <> Cells(i, 7) Then
Cells(i, 4) = "Abweichung"
End If
Next
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige