title image


Smiley Genauso, wie die anderen Angaben...
Unter der Voraussetzung, dass in E1 des aktiven Worksheets die Jahresangabe steht (ansonsten schreibst Du anstelle von E1 die richtige Zelle hin):



Sub speichern()

Dim TB As Worksheet

Dim dName$

Set TB = ActiveWorkbook.Worksheets(1)

dName = "C:\Eigene Dateien\Privat\Berichte\" & TB.Range("E1") & "\" & TB.Range("C1") & " " & TB.Range("D1") & ".xls"

ActiveWorkbook.SaveAs dName

Application.DisplayAlerts = False

ActiveWorkbook.Close False

End Sub





Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: