einmal hier
'** Das Argument erstellen
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Address(, , xlR1C1)
einmal da
Function Zelle_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, bezug As String
Dim i As Long
'** Angaben zur auszulesenden Zelle
pfad = Range("C2").Value '"F:\Excel\Beispiele"
blatt = "Tabelle1"
i = 1
Do While Range("B" & i) <> "" 'ich hoffe deine Spalte B ist nicht unendlich voll ;)
If Len(Range("B" & i).Value) > Len(".xlsx") Then
datei = Range("B" & i) 'geschlossene Mappe2.xls"
'** Eintragen in Zelle
Cells(7, "G").Value = GetValue(pfad, datei, blatt, "Y1333")
Cells(7, "H").Value = GetValue(pfad, datei, blatt, "Y1334")
Cells(7, "I").Value = GetValue(pfad, datei, blatt, "Y1335")
Cells(7, "J").Value = GetValue(pfad, datei, blatt, "Y1336")
Cells(7, "K").Value = GetValue(pfad, datei, blatt, "Y1337")
End If
i = i + 1
Loop
End Function
|