Office: (Office 2016) Office 365: Problem mit Makro: Autofilter, pdf export

Hallo zusammen

Da ich im Bereich Makros für Excel Anfänger bin, bitte ich euch um Hilfe.

Folgende Ausgangslage: Mit ein bisschen suchen, habe ich ein Makro mit Autofilter Funktion und automatischen pdf-Export erstellt. Bis auf ein kleines Problem, funktioniert alles wie gewünscht.

Das Problem:
Die Spalte die gefiltert werden muss enthält folgende Werte als Beispiel:

201.0
201.1
285.0
285.1

Nach ausführen des Makros werden aber die Zeilen mit 201.0 + 285.0 nicht wie gewünscht exportiert und als pdf abgespeichert. Wenn die Zahl 4-stellig ist und ohne Punkt dazwischen (z.b. 2010, 2850) werden alle pdf's abgespeichert und auch so benennt, was jedoch nicht zufriedenstellend ist.
Ich habe versucht die Formatierung der Zellen zu ändern (Standard, Zahl, Text, Benutzerdefiniert mit 000.0), jedoch hat sich am Ergebnis nichts geändert.

Hier das Marko:

Sub pdf()

For i = 199.9 To 299.9 Step 0.1
ActiveSheet.Range("A1:A299").AutoFilter Field:=1, Criteria1:="0" + i
If ActiveSheet.Range("A1") > 0 Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\MAA\Desktop\Liste Regiearbeiten" & i _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
Next


End Sub


Um eure Hilfe wäre ich sehr dankbar :)