AW: Hans Bitte nochmals Hilfe
07.10.2003 10:57:10
junny
Hallo Hans, jetzt bin ich nah dran!!
Es gibt noch 2 Probleme:
Der Pfad wird immer eingefügt (den will ich nicht)
Manche Zellen Meiner ausgelesenen Daten sind in der dortigen Liste verknüpft.
Was zur Folge hat, dass ich in diesen eingefügten Zellen falsche Daten habe.
Wenn ich die Zeile aus dem Code (mariert durch !!!!)
ändere, (Zeile darunter) dann werden na klar alle Daten durch die letzte Liste ersetzt, jedoch sin es dann die richtigen Daten.
Sub ImportZeile()
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
'Application.ScreenUpdating= false
Set fs = Application.FileSearch
lRow = 1
With fs
.Filename = "*.xls"
.LookIn = "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste" 'Range("A20").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(lRow, 1).Value = .FoundFiles(iCounter)
lRow = lRow + 1
Workbooks.Open .FoundFiles(iCounter)
Sheets("Zeiten").Select
ActiveSheet.Range("2:2").Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
'ActiveSheet.UsedRange.Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
'Range("2:2").Copy ThisWorkbook.Worksheets(1).Cells(lRow, 1)
'lRow = Range("2:2").Rows.Count + 1
lRow = lRow + Range("2:2").Rows.Count
'lRow = Range("2:2").Rows.Count
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
'Application.ScreenUpdating=True
End Sub
Hoffe Du kannst mir nochmals helfen, Danke junny