ich habe ein Problem mit dem Autofilter. Wenn ich über mein Userform eine Dezimalzahl Eingebe, wird das Komma gegen einen Punkt ausgetauscht. Wird das Komma durch VBA getauscht und wie kann man das verhindern?
Vielen Dank für die Hilfe.
ich habe ein Problem mit dem Autofilter. Wenn ich über mein Userform eine Dezimalzahl Eingebe, wird das Komma gegen einen Punkt ausgetauscht. Wird das Komma durch VBA getauscht und wie kann man das verhindern?
Vielen Dank für die Hilfe.
etwas Code könnte nicht schaden ;-)
Bye
Nike
Das ist ein Teil aus meinem CommandButton
....
sErsteZahl = SystemFormatZahl(f1Zugang1Filter2Text.Text)
sZweiteZahl = SystemFormatZahl(f1Zugang2Filter2Text.Text)
Selection.AutoFilter Field:=6, Criteria1:=Kriterium1 & sErsteZahl, Operator:=xlAnd, _
Criteria2:=Kriterium2 & sZweiteZahl
....
Hier die Function ....
Function SystemFormatZahl(SDieZahl As String)
SystemFormatZahl = Application.Substitute(SDieZahl, ",", ".")
End Function
.....
Was machte falsch? Wobei, die erste Dezimalzahl in der Regel richtig umgewandelt wird. Die Zweite Dezimalzahl macht die Problme. Das Rechnenzeichten, kommt aus einem Kombinationsfeld.
Vielen Dank
Gruß
Thomas
dim dblFilter2 as double
dblFilter2 = cdbl(f1Zugang2Filter2Text.Text)
Selection.AutoFilter Field:=6, Criteria1:=Kriterium1 & dblFilter2 ...
mal schaun, ob so schnackelt...
Bye
Nike