Hallo Forum,

dim sBegriff as String
dim gZelle as Range
sbgriff=Cells(1,1)
Set gZelle = ActiveSheet.Columns("D:E").Find(sBegriff, LookIn:=xlValues)
msgbox gZelle.Value

dieser Code funktioniert, wenn ich in Cells(1,1) einen String eingebe.

Gebe ich in Cells(1,1) die Zahl: 160 ein, werden andere Zellen mit dem Wert 160 gefunden, wenn ich sBegriff=Cint(sBegriff) einfüge.

Gebe ich in Cells(1,1) den -160,20 ein, werden andere Zellen mit dem Wert -160,20 nicht gefunden.
Wie erreiche ich, wenn Cells)1,1) das benutzerdefinierte Format:

Columns("D:E").Select
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "

hat, daß gleiche Werte gefunden werden können.

Vielen Dank im Voraus

Rainer