Erst einmal Danke, das du mir hilfst.
Kaum macht man es Richtig, schon Funktioniert es.
Ich habe jetzt . Name hinzugefügt und schon bekomme ich eine Antwort.
Leider ist sie PERSONAL.XLSB.
Auch als ich die datei Zwischendurch gespeichert habe habe ich als Antwort PERSONAL.XLSB.
Das verstehe ich nicht.
' Arbeitsblatt speichern
ChDir "D:\Users\BKU\BerndEisenkopf\Desktop\FIS Meldungen"
ActiveWorkbook.SaveAs Filename:= _
"D:\Users\Bernd\Desktop\Meldungen\MEldungen vom " & Format(Now, "DD MM YYYY_HH MM") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
' Suchmeldungen in Sheet einfügen
Dim QWB As Workbook ' Quellworkbook Suchmeldungen
Dim ZWB As Workbook ' Zielworkbook Meldungen
Set ZWB = ThisWorkbook
Debug.Print ZWB.Name
Wieso die Makrodatei?
Gruß
Bernd
|