Hallo zusammen,
ich habe versucht aus zwei verschiedenen Skripten dir mir vorlagen, etwas zu kombinieren. Leider funktioniert es aber gar nicht.
Ziel des Skripts sollte es eigentlich sein eine Range nach negativen Werten zu durchsuchen. In der letzen Spalte sollte dann ausgegeben werden, dass in einer Zelle dieser Zeile ein negativer Wert vorliegt (oder auch nicht). Hier mal mein Skriptversuch. Würde mich über jede Hilfe sehr freuen!
Sub Suche_nach_Negativwerten()
Dim Zelle As Range
s = ActiveSheet.UsedRange.Columns.Count + 1
x = 16
Cells(15, s) = "Negativfilter"
For Each Zelle In Range("B9:X456")
If Zelle
Danke und viele Grüße,Daniel