Hallo,
kann mir jemand weiter helfen wo mein Fehler liegt?
Es kommt immer der Fehler 400
mfg
Sub Dateiliste_Öffnen_und_Kopieren_U50()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "C:\Users\u20p95\Desktop\Arbeit\Alois\Excel_Harmonics\Datei1\"
StrTyp = "*.CSV"
Dateiname = Dir(strVerzeichnis & StrTyp)
Workbooks.Open Filename:=strVerzeichnis & Dateiname
Workbooks("7110.CSV").Worksheets("7110").Range("B117" & ":" & "B166").copy _
ActiveSheet.Range(a).PasteSpecial(Paste:=xlValues)
End Sub
|