Bin fast am Ende mit meiner Tabelle, nach 2h fehlt mir aber noch ein Ausdruck
If Len(Dir("C:\Test", vbDirectory)) = 0 Then
MkDir Range("A6").Value & "\" & Range("A7").Value
Anstelle ("A7") Soll die Aktive Celle verwende werden.
Anschliessende der Inhalt von der aktiven Zelle & _ & Datum in die Zwischenablage kopieren
Beispiel: Fassade_30.11.2019
Letzteres habe ich wieder: =TEXT(HEUTE();"TT.MM.JJ")