Hallo zusammen,
ich versuche nach importieren eine csv-Workbook in excel per macro filter zu dieser die als jetz activeworkbook ist zu setzen um die enthaltene daten zu filtern.
Irgenwie klappt es nicht wegen wahrscheindlich flasches Befehls (Letzter Befehl).
Bitte mir helfen wenn Ihr Idee haben. Ich neuerling bei BVA.
Sub ImportFiltering()
Dim customerBook As Workbook
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
Dim Liste As Range
Dim User As String
' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook
customerFilename = Application.GetOpenFilename("CSV-Dateien (*.csv),*.csv,Alle Dateien (*.*),*.*")
Workbooks.OpenText customerFilename, Local:=True
Set customerWorkbook = Application.ActiveWorkbook
User = InputBox("Enter the value for filtering")
customerWorbook.Range("$D$4:$AX$32").AutoFilter Field:=1, Criteria1:=User
End Sub
|