Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

unter Pfad speichern

unter Pfad speichern
15.08.2003 10:52:38
Micha_S
Hallo zusammen,
ich bekomme es mal wieder nicht gebacken, den Code von der CD so umzubauen, dass die Datei in "C:\Eigene Dateien\Excel\" gespeichert wird.
Vielleicht könnt ihr mir ja da helfen!?
Vielen Dank im Voraus.
Gruss aus Berlin
Micha

Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Eigene Dateien\Excel\"
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls)"
'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unter Pfad speichern
15.08.2003 10:59:36
Michael Scheffler
Hi,
an sich sieht das gut aus, vielleicht versaut Dir die Klammer das Geschäft: & ".xls)"
Gruß
Micha

AW: unter Pfad speichern
15.08.2003 11:02:46
Micha_S
Hallo Micha,
die Klammer habe ich entfernt, aaaber
ThisWorkbook.SaveAs sPath & sFile 'hier kommt der "1004" - ist gelb
Ich habe doppel-00-ahnung. Vielleich findest du ja noch etwas ?
Danke & Gruss
Micha

AW: unter Pfad speichern
15.08.2003 10:59:38
Knut
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls"
Wobei eigentlich geprüft werden sollte, ob in B1 und/oder B4
Zeichen stehen, die in Dateinamen nicht erlaubt sind.
Knut

AW: unter Pfad speichern
15.08.2003 11:05:24
Micha_S
Hi Knut,
danke für die promte Antwort.
da steht nur Text drin ?
Wie würde eine Prüfung aussehen? Kannst du mir da helfen?
Gruss
Micha

Anzeige
ich hab es :-))
15.08.2003 11:22:04
Micha_S
Hallo zusammen,
vielen Dank Micha & Knut.
Ich habe meinen Fehler selbst rausgefunden (das übt ungemein).
Schönes Wochenende wünsche ich allen.

Sub Mit_Namen_Speichern()
DIM sFile As String, sPath As String
sPath = "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Excel\" 'daran lag es
sFile = Range("B1").Value & "_" & Range("B4").Value & ".xls" 'in B1 + B4 steht der zukünftige Dateiname
ActiveWorkbook.SaveAs sPath & sFile
End Sub


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige