Makro - Daten auslesen

20/12/2007 - 11:42 von peter.e.mueller | Report spam
Hallo,

ich habe folgendes Problem:
Ich möchte Daten aus Excelfiles zur Auswertung in ein neues Excel-File
auslesen. Das Auswertungsfile (Auswertung.xls) ist im selben Ordner
wie wie die ca. 50 Datenfiles (Lieferant_Produktname.xls). Die Werte
(ca. 30) in den Datenfiles stehen jeweils in der selben Zelle. Ich
möchte also Werte wie "Datum", "Name", etc. in eine Zeile in
Auswertung.xls kopieren. Also Zelle N13 --> A5, Zelle P16--> B5, Zelle
X3 --> C5, etc. Das Makro sollte alle Files im Ordner brücksichtigen.

Mit dem Rekorder hatte ich keinen Erfolg. Ich wàre super dankbar, wenn
mir da jemand helfen kann.

Grüsse, Peter.
 

Lesen sie die antworten

#1 stefan onken
20/12/2007 - 13:13 | Warnen spam
Hallo Peter,
teste mal dieses Makro:

Sub DatenSammeln()
Dim pfad, Dateiname, i
i = 5
pfad = ThisWorkbook.Path & "\"
Dateiname = Dir$(pfad & "*.xls")
Application.ScreenUpdating = False
Do While Dateiname <> ""
With ThisWorkbook.ActiveSheet
If Dateiname <> ThisWorkbook.Name Then
Workbooks.Open pfad & Dateiname
.Range("A" & i) = Sheets(1).Range("N15").Value
.Range("B" & i) = Sheets(1).Range("P16").Value
.Range("C" & i) = Sheets(1).Range("X3").Value
'etc
Application.StatusBar = "lese " & ActiveWorkbook.Name
ActiveWorkbook.Close savechanges:=False
i = i + 1
End If
Dateiname = Dir$()
End With
Loop
Application.StatusBar = False
End Sub

Gruß
stefan


wrote:
Hallo,

ich habe folgendes Problem:
Ich möchte Daten aus Excelfiles zur Auswertung in ein neues
Excel-File auslesen. Das Auswertungsfile (Auswertung.xls) ist
im selben Ordner wie wie die ca. 50 Datenfiles
(Lieferant_Produktname.xls). Die Werte (ca. 30) in den
Datenfiles stehen jeweils in der selben Zelle. Ich möchte also
Werte wie "Datum", "Name", etc. in eine Zeile in
Auswertung.xls kopieren. Also Zelle N13 --> A5, Zelle P16-->
B5, Zelle X3 --> C5, etc. Das Makro sollte alle Files im
Ordner brücksichtigen.

Mit dem Rekorder hatte ich keinen Erfolg. Ich wàre super
dankbar, wenn mir da jemand helfen kann.

Grüsse, Peter.

Ähnliche fragen