|
Hi Leute,
ich kann zum teufel nochmal den Fehler nicht finden. Es erscheint lediglich die ganze zeit Excel 438 Error.
anbei der code:
<<
strDateiname = Dir$(strPath & "*.csv")
Do While strDateiname <> ""
If strDateiname <> ThisWorkbook.Name Then
Set wkbBook = Workbooks.Open(strPath & strDateiname)
Set ablageort = Workbooks.Open(strPath & ablage)
'This is where the macro starts;
quelle = wkbBook.Name
ziel = wkbBook.Name
' ablageort.Worksheets(start).Cells(1, 2).Value = wkbBook.Cells(2, k).Value
' ablageort.Worksheets(start).Cells(1, 3).Value = wkbBook(ziel).Cells(2, k + 1).Value
For k = 2 To 34
ablageort.Sheet(start).Cells(1, i) = wkbBook.Sheet(ziel).Cells(1, k)
ablageort(ablage).Sheet(start).Cells(2, i) = ziel
i = i + 1
Next k
'This is where the macro ends
wkbBook.Close True
Set wkbBook = Nothing
End If
strDateiname = Dir$()
Loop
>>
vielleicht kann jemand mal drüber schauen? vielen dank schon mal!!!!
viele liebe Grüße
Marcuis
|