speichern unter Zellname

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: speichern unter Zellname
von: Herbert Weinig
Geschrieben am: 13.06.2002 - 14:02:35

Hallo,

ich moechte eine Datei unter einem Zellnamen (b1), dort steht zum Beispiel drin ( re-weinig-30001-20020613 ) in ein ganz bestimmtes Verzeichnis (c;\Rechnung\Dateien\ als xls Datei speichern.
Ich hab schon alles moegliche ausprobiert, aber entweder krieg ich einen runtime error, oder er sagt, datei nicht vorhanden, oder ich mach irgend welche andere fehler.

bitte hilfe


nach oben   nach unten

Re: speichern unter Zellname
von: Kl@us-M.
Geschrieben am: 13.06.2002 - 14:06:37

Hallo Herbert,
versuch mal


Sub Datensicherung ()
ActiveWorkbook.SaveAs Filename:="C:\Rechnung\Dateien\" & ActiveSheet.Range("B1")
End Sub

Gruss
Klaus-Martin

nach oben   nach unten

Re: speichern unter Zellname
von: Silvio
Geschrieben am: 13.06.2002 - 14:13:26

Sub speichern()
If MsgBox("Die Datei bekommt die Bezeichnung die im Feld B1 eingegeben wurde und wird in den Ordner c:\Rechnung\Dateien\ gespeichert!", vbQuestion + vbYesNo) = vbNo Then Exit Sub

Dim TB As Worksheet
Dim dName$
Set TB = ActiveWorkbook.Worksheets(1)
dName = "c:\Rechnung\Dateien\" & _
TB.Range("B1") & ".xls"
If Dir(dName) <> "" Then
If MsgBox("Die Datei besteht bereits. Datei ersetzen?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs dName
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "speichern unter Zellname"