Speichern unter Zellnamen
17.01.2007 09:41:16
Christian
Für Profis eine wohl leichte Frage: ich möchte eine Datei-Vorlage, die viele Nutzer bearbeiten dürfen unter einem Namen speichern, der sich teilweise aus einem Zelleintrag des jeweiligen Nutzers ergibt:
Fester und erster Teil des Dateinamens muss sein: "MAF " (mit einer Leertaste)
Daran soll hinten der Text angehängt werden, den der Nutzer auf einem Blatt mit der Bezeichnung "Übersicht" in Zelle C6 eingegeben hat. Diese Zelle hat gleichzeitig einen Namen, der da lautet "ProjektID". Dies nur als Hinweis - ich weiß nicht, ob man hier besser über die Zellbezeichnung C6 oder über den Namen referenziert. Ich habe in dieser Arbeitsmappe schon eine automatische Sicherungsdatei, die bei jeden Speichervorgang erstellt wird. Hier der Code dazu:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ThisWorkbook
.SaveCopyAs _
"M:\Administratives\MAF-Sicherung\" & Left(.Name, Len(.Name) - 4) & Format(Now, "YYMMDD_hhmmss") & ".xls"
End With
End Sub
Dieser soll nun eben mit dem Zelleintrag aus C6 ergänzt werden und ich weiß nicht, wie das geht. Vielen Dank für jede Hilfe,
Christian