im Ordner C:\temp stehen etwa 200 Dateien, deren Aufbau genau gleich ist. Ich möchte jede Datei öffnen und aus den Zahlenwerten D26 bis D49 den Mittelwert bilden lassen. Dieser soll in der Zieltabelle in Spalte A untereinander erscheinen. Ich habe schon einen passenden VBA-Code erstellt. Leider fehlt mir noch der Part der Mittelwertbildung. Eventuell hat jemand einen Vorschlag. Gruß Herbert
Hier der Code:
Sub Mittelwert_auslesen()
Range("A2:C5002").Select
Selection.ClearContents
Dim Dateien As Integer
Application.DisplayAlerts = False
With Application.FileSearch
.NewSearch
.LookIn = "c:\Temp"
.Filename = "*.csv"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(Dateien)
Workbooks(2).Close
Next Dateien
End If
Application.DisplayAlerts = True
End With
End Sub