ok danke dir erstmal xlKing. Das ganze sieht jetzt so aus, passt das oder hab ich was vergessen/verdreht? Zelle, die ich auslesen will ist wie am anfang schon D3 auf Tabellenblatt 3 (copy paste Tabellen).
Sub Dateimitnamenspeichern()
Dim pfad As String, datei As String, blatt As String, bezug As String, KW As Variant
pfad = "S:\PRJ\FZG\Kompetenz_Team\08_Exterieur\09_BR-?bergreifend\00_Projektstatusberichte\DTK_Status\01_Statusberichte_DES"
datei = "Status ?bersichtstabelle.xlsx"
blatt = "copy paste Tabellen"
bezug = "D3"
Private Function GetValue(pfad, datei, blatt, bezug)
' Retrieves a value from a closed workbook
Dim arg As String
' Make sure the file exists
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "Datei nicht gefunden!"
Exit Function
End If
' Create the argument
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & _
Range(bezug).Range("D3").Address(, , xlR1C1)
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function
KW = GetValue(pfad, datei, blatt, bezug)
End Function
Danke im Vorraus!
Gruß Olli
|