title image


Smiley Aha, das lässt sich z. B. so einrichten...
Unter der Voraussetzung, dass der Ursprungsordner "C:\Eigene Dateien\Privat\Berichte\" heißt und dass die Jahreszahl in einer Zelle, z. B. "E1" steht:



Sub speichern()

Dim TB As Worksheet

Dim dName$ as String

Dim strPfad as String



Set TB = ActiveWorkbook.Worksheets(1)

strPfad="C:\Eigene Dateien\Privat\Berichte\" & TB.Range("E1") & "\"



If Dir(strPfad, vbDirectory)="" Then MkDir strPfad



dName = strPfad & TB.Range("C1") & " " & TB.Range("D1") & ".xls"



Application.DisplayAlerts = False

ActiveWorkbook.SaveAs dName

ActiveWorkbook.Close SaveChanges:=False

Application.DisplayAlerts=True

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: