Makro Finde Werte >0
10.11.2007 13:12:00
Sonnenpeter
ich stehe mal wieder auf dem ................
Sub FindeDaten()
'Wert = >0 ' geht nicht :-(
'Wert = ">0" ' geht nicht :-(
With Worksheets("Datenblatt").Range("D5:D500")
Set c = .Find(Wert, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 34
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Wie muß ich Wert angeben so das alles Zellen >0 gefunden werden?
Gruß Sonnenpeter