Hallo,
erst mal danke fuer die Rueckmeldung, dass mein code geholfen hat.
zu deiner PS-Frage faellt mir nichts mehr gross ein, um die Zeile zu verkuerzen. Hoechstens, dass du die Strings wie "Mustertext" oder "Tabelle1!A1" sowie das Datum am Ende in kurze Variablen verpackst, die du oben deklarierst und dann fuellst.
z.B.
Dim txt1 as String, rngA1 as String, rngA2 as String, datum as String
txt1 = "Mustertext"
rngA1 = "Tabelle!A1"
rngA2 = "Tabelle!A2"
datum = Format(Date, "yyyy-mm-dd)
.InitialFileName = "C:\" & txt1 & Space(1) & Range(rngA1) & Space(1) & Range(rngA2) & Space(1) & datum
Gruss Torsten
|