Sub
Dateimitnamenspeichern()
Dim
pfad
As
String
, datei
As
String
, blatt
As
String
, bezug
As
String
, KW
As
String
pfad =
"PfadmeinerExclDatei"
datei =
"Status ?bersichtstabelle.xlsx"
blatt =
"copy paste Tabellen"
bezug =
"D3"
KW = GetValue(pfad, datei, blatt, bezug)
End
Sub