title image


Smiley Ja, geht.
Dazu mußt Du die letzten beiden Zeilen vor End SubDN= aktPfad & QN3st & ".xls"

ActiveWorkbook.SaveAs (DN)ausschneiden und in einer neuen subPrivate Sub Workbook_BeforeSave()

DN= aktPfad & QN3st & ".xls"

ActiveWorkbook.SaveAs (DN)

End Subeinfügen. Außerdem muß vor der anderen Sub (Cursor vor "Private..." stellen und Enter drücken und in die neue Zeile schreiben) noch stehenPublic QN3stGruß, Frank



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: