ich brauche nochmal die Hilfe des Forms. Zum Thema Autofilter und Dezimalzahl Nachdem der Tip von Nike nicht funktioniert hat,
habe ich folgende Lösung gefunden (CD von Hans):
Dim ZF_Zugang1 as String
Dim G_Dummy1 as Integer
ZF_Zugang1 = f1ZugangFilter1Text
If ZF_Zugang1 <> "" Then
G_Dummy1 = InStr(ZF_Zugang1, ".")
If G_Dummy> 0 Then Mid(ZF_Zugang1), G_Dummy1, 1) = "."
end If
Selection.AutoFilter Field=6, Criteria1:=Kriterium1 & ZF_Zugang1
Die Sache funkioniert mit fast jedem Rechnenzeichen, außer mit ist gleich. Wenn ich über mein Userform (Kombinationsfeld), das ist gleich anklicke, wird das Dezimalzeichen nicht richtig umgewandelt.
Der Code für das Kriterium1:
if CboKriterium1.Value = "entspricht" Then
Kriterium1 = "="
ElseIf....
Warum funktioniert das mit allen Rechnenzeichen nur mit ist gleich nicht. Wo liegt der Fehler? Nochmals viele Dank für die Hilfestellung.
Gruß
Thomas