Habe mir mittels Makrorecorder und einem fertigen "Datei öffnen makro" ein Makro gebastelt.
Es ist aber ein Fehler drinn den ich alleine nicht gelöst bekomme.
Hier einmal das Makro:
Sub csvImport()
Cells(65000, 4).End(xlUp).Offset(1, 0).Select
Dim wb As Workbook
Dim lngZ As Long
Dim strFileName
Dim strFilter As String
strFilter = "csv Dateien(*.csv*), *.csv*"
ChDrive "D"
ChDir "D:\"
strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub
Set wb = Workbooks.Open(strFileName)
Range("J1").Select
Selection.Copy
Windows("Kundenteile WerkstattTEST.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E98").Select
Windows(strFileName).Activate
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("B1", "B" & Range("a65536").End(xlUp).Row).Select
Selection.Copy
Windows("Kundenteile WerkstattTEST.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F98").Select
Windows(strFileName).Activate
Application.CutCopyMode = False
Range("D1", "D" & Range("a65536").End(xlUp).Row).Select
Selection.Copy
Windows("Kundenteile WerkstattTEST.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G98").Select
Windows(strFileName).Activate
Application.CutCopyMode = False
Range("E1", "E" & Range("a65536").End(xlUp).Row).Select
Selection.Copy
Windows("Kundenteile WerkstattTEST.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(strFileName).Activate
ActiveWindow.Close
End Sub
Der Fehler steckt in den Zeilen:
Windows(strFileName).Activate
Was muß dahin. Der Name ändert sich ja immer. Excel soll immer zwischen der ausgngewählten Datein und dem Sheet Kundenteile wechseln !
Gruß
Erik
Windows(strFileName).Activate