Nullen in Nachkommastelle werden ignoriert
05.10.2006 12:07:47
reiner
Eine ComboBox bietet die Inhalte einer Spalte zur Auswahl an; der mit der Maus ausgewählte Eintrag wird der Variablen Suchbegriff übergeben.
Mit nachfolgender Zeile aus dem vorhandenen Programmcode werden die letzten 3 Zeichen des Inhalts der Variable Suchbegriff (z.B.: 1,69 DM auf 1,69) entfernt. Dieser Suchbegriff wird danach mit den Inhalten einer Spalte verglichen und alle Zeilen mit übereinstimmenden Zellinhalten werden markiert. Enthält der Suchbegriff jedoch den Wert 1,00 DM wird dieser auf 1 reduziert und sämtliche Zellinhalte mit einer 1 -an beliebiger Stelle- werden markiert.
Ähnlich verhält es sich bei dem Wert 2,70 DM, dieser wird auf 2,7 reduziert und alle Zellen mit den Inhalten: 2,71, 2,72 bis 2,79 werden unsinnigerweise markiert!!!
If Jahr < 2002 Then Suchbegriff = CDbl(Left(Suchbegriff, Len(Suchbegriff) - 3))
Weiß jemand weshalb die Nullen in der Zehner- und Einerstelle hinter dem Komma entfernt werden, was zu unsinnigen Treffern führt? Wie lässt sich dieses Problem lösen
mfg
reiner