title image


Smiley Re: Dateinamen aus Excelzelle
Hallo Jürgen



'in Diese Arbeitmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Makro1

End Sub



'in ein Modul

Sub Makro1()

ActiveWorkbook.SaveAs Filename:=Cells(4, "A").Value & ".xls"

End Sub





Durch SaveAS brauchst Du nur auf speichern klicken und Excel speichert als

Datei aus Inhalt der Zelle in "A4" + ".xls" ab.

Ich hoffe Du kommst damit klar.
Gruß Matthias

geschrieben von

Anhang
Bild 12116 zu Artikel 565096

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: