Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
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
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

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

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

337 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige