Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

speichern in bestimmten verzeichnis/vba

speichern in bestimmten verzeichnis/vba
18.12.2003 15:12:54
Marco
Hallo,

ich habe in einer Arbeitsmappe einen Button, mit dem ich die Mappe speichern kann und zwar unter einem namen, der irgendwann zuvor in einer variablen abgelegt wurde. Das Funktioniert auch soweit. Nur wird die Datei in Eigene Dateien gespeichert. ich hätte nun aber gerne, dass sie in dem gleichen Verzeichnis wie die offene Datei gespeichert wird.

Wäre toll, wenn sich jemand findet, der weiß wie man das anstellt.



Sub speichern()
Dim Titel As Variant
Titel = "Dies ist ein Test"
MsgBox "Die Daei wird unter dem Namen: " & Titel & " gespeichert"
ActiveWorkbook.SaveAs Filename:=Titel
End Sub


Gruß

Marco

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: speichern in bestimmten verzeichnis/vba
18.12.2003 15:22:27
Morgenstern
Hallo,

probiers mal damit ...


Sub speichern()
Name = Range("D13")'oder der Variable einen Wert geben mit =
Datum = Range("W3")'oder der Variable einen Wert geben mit =
Sicherung = "D:\Referat 5\BauDV\Sicherung\Auftrag\" Name & Datum & ".xls"
ActiveWorkbook.SaveAs Sicherung
Range("A1").Select
ActiveWorkbook.Close
End Sub


Grüße Morgenstern
Vielen Dank!
18.12.2003 15:37:25
Marco
.
AW: speichern in bestimmten verzeichnis/vba
18.12.2003 16:33:29
Marco
Hallo,

ich habe da jetzt noch ein wenig dran rumgebastelt und nun bekomme ich die Fehlermeldung

"Es kann auf die Datei nicht zugegriffen werden"

Hab ich da was falsch gemacht?


Private Sub OK_Button_Click()
Titel_Zeile_eins = "test"
Sicherung = "C:\test\Titel_Zeile_eins" & ".xls"
ActiveWorkbook.SaveAs Sichrung Speichern.Hide
End Sub


Gruß

Marco
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige