falsches Ergebnis bei Suchanfrage
25.10.2002 15:48:56
jori
aus den Excel-Beispielen habe ich nachfolgendes Makro im Einsatz. Ich suche damit aus einer Spalte eine bestimmte Fläche und summiere die Zahlen aus der Spalte weiter rechts. Die Flächen sind von 0,001 bis 4,0 qm vertreten.
Als Suchbegriff kann ich jede gewünschte Zahl eingeben, es funktioniert prima.
Wenn ich aber 0,10 eingebe (und nur bei 0,10), erhalte ich ein total falsches Ergebnis. Probeweise habe ich die vorgegebenen Flächen von 0,10 auf 0,101 abgeändert und diese Zahl auch gesucht, dann erhalte ich das korrekte Ergebnis.
Hat wer eine Idee, was es mit der 0,1 bzw. 0,10 auf sich haben könnte?
Bin für jeden Tipp dankbar.
Gruß
jori
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Geschossfläche eingeben:") * 1
wert = 0
Set GZelle = ActiveSheet.Range("K:K").Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Select
Set GZelle = Range("K:K").FindNext(after:=ActiveCell)
wert = wert + ActiveCell.Offset(0, 3).Value
If GZelle.Address = FStelle Then Exit Do
Loop
End If
MsgBox "Die Summe lautet: " & wert
End Sub