VLOOKUP Function mit Zugriff auf geschl. Datei
19.08.2003 17:31:29
Fulcrum
hab folgendes problem:
muss in einer datei einen sverweis durchführen, wobei sich die suchmatrix in anderen dateiEN befindet. da hinter dem dateisyntax sowie dem pfad der betreffenden dateien ein einfaches system steckt, kann die adresse der betreffenden datei berechnet werden. leider schaff ich zwar die adresse richtig zu berechnen (mit hilfe von copy-and-paste des ergebnisses der variable "Suchmatrix" ins sverweis argument funktioniert die funktion auch), aber wenn ich das ganze mit einer VBA-
Function automatisieren will krieg ich immer eine fehlermeldung.
hier mal mein code:
Function VerweisSpezial(Suchwert, Dn_kurz, Monat)
'sucht den suchwert in der Matrix der betreffenden Datei
'die aus den Argumenten monat, dn_kurz und weiteren Werten berrechnet wird.
'ermitteln des Monats als Zahlenformat
Monat_mm = "1." & Monat & "." & Range("Jahr").Value
Monat_mm = Format(Monat_mm, "mm")
'ermitteln des Monats als Textformat
Monat_mmm = "1." & Monat & "." & Range("Jahr").Value
Monat_mmm = Format(Monat_mmm, "mmm")
'ermitteln des Jahres als Format 00
jahr = Range("Jahr").Value
jahr = Format(jahr, "00")
'definieren des korrekten Dateinamens
Filename = "[" & Dn_kurz & " " & jahr & "-" & Monat_mm & ".xls]"
Path = ActiveWorkbook.Path
Path = Path & "\" & Monat_mm & " " & Monat_mmm & "\"
Suchmatrix = "'" & Path & Filename & "Eingabe_ILV'!$B$12:$C$31"
VerweisSpezial = WorksheetFunction.VLookup(Suchwert, Suchmatrix, 2, False)
End Function
******************************************************************************
ich kriegs hin dass die funktion funktioniert wenn auf die gleiche, geöffnete datei verwiesen wird. bringt mir aber nichts weil es insgesamt 80 dateien sind aus denen je 15 daten entnommen werden müssen - die alle öffnen is nicht drin.
wäre sehr dankbar wenn mir dabei wer helfen könnte.