Benutzerdefinierte Formate und - Find-
17.07.2003 21:22:08
Rainer
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