Nur die gefilterten Werte exportieren
04.06.2015 13:22:32
Emre
ich habe folgendes Problem, und zwar habe ich eine Tabelle in Excel, die ich zu Notepad exportiere, was ich auch schaffe. Mein Problem bei der Sache ist aber, ich filtere diese Tabelle und beim Export schaff ich nicht nur die gefilterten Zeilen rüber zu kopieren. Ich würde gerne nach dem ich den Filter gesetzt habe auch nur die gefilterten rüber nach Notepad kopieren/exportieren. Ich glaube es liegt an der If-Bedingung, habe auch verschiedene Sachen ausprobiert nur geklappt hat es nicht.
Wenn ich schon frage, eine Sache wäre da noch. Nach dem ich auf Export klicke (habe einen Button dafür erstellt), wird alles exportiert aber die txt. Datei öffnet sich nicht von allein. Geht das denn irgendwie?
Wäre für eine Hilfe sehr dankbar.
Mein Code sieht so aus:
Sub Export()
Dim flag As Boolean
Dim i As Integer
'open the file for writing
Open "C:\Users\User\Desktop\Test.txt" For Output As #4
flag = True
i = 2
'keeps going until the end of the file is reacheed
While flag = True
'check if the current cell has data in it
If Cells(i, 1) "" Then
'write the data to the file
Write #4, Cells(i, 1)
'go to next cell
i = i + 1
Else
'if the last row has been reached exit the loop
flag = False
End If
Wend
'close the file
Close #4
End Sub