Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei speichern unter mit VBA und Zelleninhalt

Datei speichern unter mit VBA und Zelleninhalt
08.08.2015 21:07:34
Hans
Hallo Forum,
nun habe ich ja mein Datum in meiner Verketten Formel.
Was nun noch fehlt ist das Speichern über den Zelleninhalt. Dazu bräuchte ich wieder mal eure Hilfe.
Ich würde die Datei gerne in dieses Verzeichnis speichern:
D:\Google Drive\Adressdaten\Neue Adressdaten\2015\Zellinhalt E118.xlsm
Mit dem Makro Rekorder klappt das leider nicht.... Bekomme immer wieder Fehlermeldungen - Laufzeitfehler 1024
HANS

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern unter mit VBA und Zelleninhalt
08.08.2015 21:17:48
Sepp
Hallo Hans,
"D:\Google Drive\Adressdaten\Neue Adressdaten\2015\" & Sheets("Tabellenname").Range("E118").Text & ".xlsm"
Gruß Sepp

Anzeige
AW: Datei speichern unter mit VBA und Zelleninhalt
08.08.2015 21:27:48
Hans
Moin moin Sepp...
ich hab das Makro in einen Schaltbutton eingefügt, nun bekomme ich eine Fehlermeldung : Fehler beim Kompilieren: Syntaxfehler
Hier mein VBA Code:
Private Sub CommandButton2_Click()
"D:\Google Drive\Adressdaten\Neue Adressdaten\2015\" & Sheets("Eingabe").Range("E118").Text & ". _
xlsm"
End Sub
Ich hab wirklich eine Leerzeile zwischen dem Code!
HANS

Anzeige
AW: Datei speichern unter mit VBA und Zelleninhalt
08.08.2015 21:29:25
Hans
.....
Muss da nicht irgendwas von Save oder Saveas stehen?
HANS

AW: Haken vergessen, Frage noch offen
08.08.2015 21:30:49
Hans
HUPS...
Häkchen vergessen
Frage noch offen!
HANS

AW: Datei speichern unter mit VBA und Zelleninhalt
08.08.2015 21:38:15
Sepp
Hallo Hans,
ich dachte, den Code zum speichern hast du bereits!
Für die Datei in der der Code steht
Private Sub CommandButton2_Click()
Dim strFile As String

strFile = "D:\Google Drive\Adressdaten\Neue Adressdaten\2015\" & _
  Sheets("Eingabe").Range("E118").Text & ".xlsm"

ThisWorkbook.SaveAs Filename:=strFile, FileFormat:=52
End Sub


für eine andere Datei must du "ThisWorkbook" entsprechend ändern "Workbooks("DeineDatei")"
Gruß Sepp

Anzeige
AW: @ Sepp
08.08.2015 22:03:42
Hans
Moin moin Sepp,
ja.... so klappt das Prima.... vielen Dank...
HANS
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige