Makro Finde Werte >0

Forumthread: Makro Finde Werte >0
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro Finde Werte >0

10.11.2007 14:12:00

Gast

Hallo,
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ß Gast

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Finde Werte >0

10.11.2007 14:39:43

Ramses
AW: Makro Finde Werte >0

10.11.2007 14:57:00

Gast
AW: Makro Finde Werte >0

10.11.2007 15:02:00

Gerd

AW: Makro Finde Werte >0

10.11.2007 14:39:43

Ramses

Hallo
Find sucht nur auf genaue Übereinstimmung.
Daher musst du wohl eine Schleife bauen die jede Zelle auf den Wert prüft oder mit einer Bedingten Formatierung arbeiten
Gruss Rainer

AW: Makro Finde Werte >0

10.11.2007 14:57:00

Gast

Ok,
Danke Rainer
Gruß Gast

AW: Makro Finde Werte >0

10.11.2007 15:02:00

Gerd

Hallo Gast,
so zum Beispiel.
Falls Formeln im Bereich sind, ggf. "SpecialCells.." durch "Cells" ersetzen.


Sub Färbe_Daten()
Dim c As Range
With Worksheets("Datenblatt").Range("D5:D500")
.Cells.Interior.ColorIndex = xlNone
For Each c In .SpecialCells(xlCellTypeConstants)
If c.Value > 0 Then c.Interior.ColorIndex = 34
Next
End With
End Sub

Gruß Gerd

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!