Hallo Zusammen,

ich möchte in einer Datei mit den Spalten:

ID;Dateiname;Datum;Krit 

Datum&Krit;Name der zu lesenen Exceldatei;Datum (jeder Tag im Jahr);Das Kriterium (Zahl)

einen Wert ziehen.

Es sind die Dimensionen Datum und Kriterium vorhanden. In den geschlossenden Dateien sind je Tagesdatum ein Wert vorhanden, welche in die neue Datei kopiert werden soll. Dateiname ist anhand des Kriteriums dynamisch.

Ich habe bereits die GetValue Funktion eingebaut. Das Datum wird noch nicht als Kriterium herrangezogen. Zusätzlich schreibt mir das Skipt die Werte nicht in die jeweilige Zelle. Habt ihr da eine Idee?

Public Function GetValue(pfad, datei, blatt, zelle)

'** Daten aus geschlossener Arbeitsmappe auslesen

'*** Dimensionierung der Variablen

Dim arg As String

'Sicherstellen, dass das datei vorhanden ist

If Right(pfad, 1) <> "\" Then pfad = pfad & "\"

If Dir(pfad & datei) = "" Then

GetValue = "datei Not Found"

Exit Function

End If

'** Das Argument erstellen

arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , xlR1C1)

'** Auslesen über Excel4Macro

GetValue = ExecuteExcel4Macro(arg)

End Function

Public Function Zelle_auslesen()

Dim pfad As String

Dim datei As String

Dim blatt As String

Dim zelle As String

Dim a As Integer

Dim Angaben As String

Dim Datenblatt2 As String

'Dimensionen zuordnen

Angaben = "Admin"

Datenblatt2 = "Tageswerte_je_Kst"

pfad = Sheets(Angaben).Cells(2, 2).Value 'Admin B2

datei = Sheets(Datenblatt2).Cells(a, 2).Value 'Tageswerte_je_Kst B2

zelle = Sheets(Angaben).Cells(4, 2).Value 'Einleseblatt B4

blatt = Sheets(Angaben).Cells(5, 2).Value 'Tabellenblatt Einlesen B5   

    For a = 2 To 20000

    Set rngZelle = Cells(a, 9)

ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)

Next a

End Function