Problem mit ein Code für txt Datei!

[cysu11]

Hallo zusammen,


bräuchte nochmals Hilfe zu diesem Code:

Code:

Sub ImportDatei()
Dim Var
    Dim FileName As String
    FileName = ThisWorkbook.Path & "\" & Range("H2").Text & ".txt"
    Var = MsgBox("Importdatei " & FileName & " erstellen? Achtung! Falls bereist ein Datei mit diesen Namen existiert, wird diese überschrieben! Sind Sie sicher?", vbYesNo)
     If Var = 7 Then
         Exit Sub
         Else
         FillEmpty
    Dim FileNo As Integer
    Dim x As Long
    FileNo = FreeFile
    Open FileName For Output As #FileNo
    With Worksheets("Daten")
              For x = 3 To .Range("AN1:AN" & .Range("A65536").End(xlUp).Row).Count
        Print #FileNo, .Cells(x, 40).Value
        Next x
    End With
    End If
    Close #FileNo
    MsgBox "Importdatei " & FileName & " erfolgreich erstellt!"
End Sub

Dieser Code funktioniert perfekt und kopiert/druck mit einen bestimmten Bereich in meine Exceltabelle per Knopfdruck in eine txt-Datei!

Meine Frage: Ich filtere mit dem Filter bestimmte Datensätze und würde gerne nur diese mit dem Code kopieren/drucken in der txt-Datei! Momentan kopiert/druckt mir der Code alles aus auch die Werte die ausgefilter sind!!!


Vielen dank im Voraus
VG
Alexandra