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)
Dim arg As String
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "Datei nicht gefunden!"
Exit Function
End If
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & _
Range(bezug).Range("D3").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
KW = GetValue(pfad, datei, blatt, bezug)
End Function