Ich hab wieder einmal ein problem, bei dem ich eure hilfe benötigen würde.
Es geht darum bei 5 Excel Dateien den Inhalt der Tabelle 1 in eine Datei einzulesen.
Das ganze möchte ich per VBA lösen.
Mein Hauptproblem ist das es sich um monatliche Dateien handelt, das heisst die Datendateien von Jänner liegen im Ordner Jänner und haben auch im Name das 01-2008, bzw. dann halt 02-2008 usw.
Zuerst möchte ich jede einzelne datei aufrufen,danach den Inhalt der Zieldatei leeren und den Inhalt der Quelldateien beginnend mit A19:L19 bis zur letzten zelle mit werten kopieren (trangend ist hierbei die Spalte A) in die erste freie zelle der Zieldatei kopieren.
Im Prinzip soll das Script folgendes tun.
1) alle datendateien zu öffnen - hab ich
2) alle werte in der Zieldatei zu löschen - hab ich
3) alle daten der einzelnen dateien in die Zieldatei zu kopieren - habe ich nicht
Das Problem welches ich da habe ist das aufrufen der dateien, das ich der dateiname jedes monat
ändert.
Hier mein aktueller Scipt wo ich die Dateien aufrufe und den inhalt der Zieldatei lösche
Sub Daten_Lesen()
Set Datname = ActiveWorkbook
Sheets("BASIC_forecasts ").Select
Dim iCounter As Integer
With Application.FileSearch
.LookIn = ThisWorkbook.Path & "\Details"
.SearchSubFolders = False
.Execute msoSortByFileType
.FileType = msoFileTypeExcelWorkbooks
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open FileName:= _
.FoundFiles(iCounter) _
, UpdateLinks:=0
Next iCounter
End With
Datname.Activate
Range("A18:L18").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub
ich bräuchte jetzt wie gesagt nur noch hilfe beim Einlese der Daten aus den Quell-Dateien.
danke schon vorab für die Hilfe
LG
rupert