Office 365: Problem mit Makro: Autofilter, pdf export

[Aditya]

Hallo zusammen

Da ich im Bereich Makros für Excel blutiger 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 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