17.07.2014, 12:13
Hallo zusammen,
bräuchte nochmals Hilfe zu diesem Code:
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
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 SubDieser 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