title image


Smiley Speicherpfad aus einer Zelle entnehmen
Hallo Leute

Ich habe eine Datei, die ich beim Abspeichern unter dem Namen zweier Zellen in einen Ordner speicher. Den Speicherpfad gebe ich per VBA vor. Da die Datei jedes Jahr in einem neuen Ordner (Jahreszahl) abspeichern soll hab ich nun das Problem, wie sich der in dem Modul befindliche Speicherpfad auf eine Zelle beziehen kann.

Da Modul lautet:



Sub speichern()

Dim TB As Worksheet

Dim dName$

Set TB = ActiveWorkbook.Worksheets(1)

dName = "C:\Eigene Dateien\Privat\Berichte\2004\" & _

TB.Range("C1") & " " & _

TB.Range("D1") & ".xls"

ActiveWorkbook.SaveAs dName

Application.DisplayAlerts = False

ActiveWorkbook.Close False

End Sub



Wie erreiche ich, das die Zahl 2004 durch das Abgreifen auf eine Zelle erfolgt?

Für Lösungsvorschläge währe ich sehr dankbar.

Gruß Frank

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: