Spezialfilter bringt nur Ganzahlige Werte

[maine-coon]

Mein Spezialfilter funktioniert (fast) einwandfrei.
In einer großen Tabelle gibt es 15 Zellen in denen der Wet "0,00001" steht.
In der Zeile der Kriterien wird auch der zu suchende Wert "0,00001" angezeigt.
Aber als Resultat kein Treffer.
Eigentlich muss in den Zellen nicht 0,00001 stehen, sondern 0.
Aber in der Winkelfunktion mit der Großkreisberechnung gibt es mit dem Zellenwert 0 kein Ergebnis.

Alle anderen Zellen mit ganzahligen Werten, werden einwandfrei gefiltert.
Dann habe ich mal in eine der Zellen einfach mal die Zahl 30 in 30,25 geändert.
Und schon findet er diesen Wert nicht mehr.

Hier der Ablauf:

PHP-Code:

Private Sub ListBox3_Click() 'Liste des gewählten Breitengrads 
   Breitengrad.Value = ListBox3.List(ListBox3.ListIndex, 0) 'Breitengard ist eine Testbox und nur eine Anzeige in meiner Userform
End Sub 


PHP-Code:

If Breitengrad.Value <> "" Then                          
   Worksheets("Auswahl").Range("C2") = Breitengrad.Value '' Filterkriterium in C2 eintragen
End If 


PHP-Code:

Rem Spezialfilter aktivieren
    Worksheets("Entfernungen").Range("A19:Z1020").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Worksheets("Auswahl").Range("A1:Z5"), CopytoRange:=Worksheets("Auswahl").Range("A5"), Unique:=False 


Warum filtert der Spezialfilter nur ganzzahlige Werte?

[Klaus-Dieter]

Hallo,

ohne deine Datei zu kennen, ist das nur Stochern im Nebel.

[HKindler]

Hi,

wer mit Textboxen arbeitet und dort Kommazahlen als "1,23" eingibt, braucht sich nicht wundern, wenn VBA seltsam reagiert. Denn erstens sind Text keine Zahlen und zweitens werden in VBA Fließkommezahlen als 1.23 geschrieben.
Lösung: Statt Breitengrad.Value besser CDbl(Replace(Breitengrad.Value,",",".")) verwenden.