Nepumuk
13.05.2003 17:51:22
Ralf
leider weiß ich nicht anders dich zu erreichen. Dein Code läuft toll, daher kann ich ihn auch für andere Sachen gebrauchen.
Aber er darf dann nur die Spalte "A" bis A15 und die Spalte "D" auch nur bis D15 berechnen. Geht das?
Danke vorab und Gruß, Ralf
Public Sub Ralf()
Dim Zelle As Range, Zeile As Long
With Range(Cells(1, 4), Cells(Cells(65536, 4).End(xlUp).Row, 4))
For Zeile = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(Zeile, 1).Value <> "" Then
Set Zelle = .Find(Cells(Zeile, 1).Value, LookAt:=xlWhole)
If Zelle Is Nothing Then Cells(Zeile, 1).Interior.ColorIndex = 3
End If
Next
End With
End Sub