Hallo zusammen,

ich habe ein kleines VBA Problem und hoffe hier jemanden zu finden, der mir helfen kann.

Ich habe eine Tabelle, welche mit Autofilter gefiltert wird! Über den gefilterten Bereich würde ich gerne eine Schleife laufen lassen, welche mir einen Teil der Tabelle (3 bestimmte Spalten) ausliest und in eine Textdatei kopiert.

Das funktioniert soweit auch wunderbar nur der wird der gesetzte Filter ignoriert und einfach von Zeile 1 an exportiert je nachdem welchen Bereich ich bei der Schleife definiere.

Hier der code dazu:

Public Sub Button_Click()

Selection.AutoFilter Field:=16, Criteria1:="Evaluate"

    Dim Dateiname As String
    Dim Zeile As Integer
    Dim Spalte As Integer
    Dim GanzeZeile As String
    Dim Trennzeichen As String
    Dim a As String
    Dim b As String
    Dim c As String
   
    
    Dateiname = "pfad\output.txt"
    
    Trennzeichen = Chr(9)
    
    Open Dateiname For Output As 1
    

    For Zeile = 3 To 50
        
    
        For Spalte = 4 To 50
      
            ' Werte der Zellen werden zusammengefügt, getrennt durch Tabstopps
            
            a = Cells(Zeile, 3).Value
            b = Cells(Zeile, 4).Value
            c = Cells(Zeile, 7).Value
            
            GanzeZeile = a & Trennzeichen & b & Trennzeichen & c
            
        
        Next Spalte
        
        Print #1, GanzeZeile
        
    Next Zeile
    
    Close #1
    
    MsgBox ("Zu evaluiernde Updates Output.txt kopiert")
    
End Sub

Ich habe bereits von specialCells(xlCellTypeVisible) gehört jedoch fehlt mir als absoluter Neuling das Wissen, wie ich sowas implementieren könnte!

Hoffentlich kann mir einer von euch helfen!

Vielen Dank im voraus.