Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern unter - Pfad wird nicht genommen

Forumthread: Speichern unter - Pfad wird nicht genommen

Speichern unter - Pfad wird nicht genommen
Udo
Hallo zusammen!
Ich möchte eine Datei unter einem bestimmten Namen und in einem bestimmten Ordner speichern.
Den Namen und die Dateiendung (mit Makro) bekomme ich hin. Der gewählte Ordner wird aber nicht _ angezeigt, sondern immer der zuletzt verwendete Ordner. 

Sub speichern()
Sheets("Daten").Select
ChDir "C:\Benutzer\Öffentlich\Öffentliche Dokumente\Bio\"
' oder ChDir "C\Users\Public\Documents\Bio"
Application.Dialogs(xlDialogSaveAs).Show Range("L278") & " " & Range("L282"), _
xlOpenXMLWorkbookMacroEnabled
End Sub

Es muss auch geprüft werden ob der Ordner existiert und wenn nicht angelegt werden. Hierzu habe ich noch gar keinen Code.
Gruß Udo
Anzeige
AW: Speichern unter - Pfad wird nicht genommen
28.10.2010 19:19:28
Uduuh
Hallo,
nutze das FileDialog-Objekt. 
Sub ttx()
Const sPfad As String = "e:\daten1\"
If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = sPfad
.Title = "Dateiname?"
.Show
End With
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: Speichern unter - Pfad wird nicht genommen
28.10.2010 19:33:08
Udo
Hallo und Danke für die schnelle Antwort!
Ich werde es gleich mal ausprobieren.
AW: Speichern unter - Pfad wird nicht genommen
29.10.2010 06:07:38
Udo
Guten Morgen !
Wenn ich aus beiden Formeln einen Teil nehme, dann erhalte ich fast mein gewünschtes Ergebnis.
Ich Arbeite mit Vista. Der gewünschte Ordner = ChDir "C:\Benutzer\Öffentlich\Öffentliche Dokumente\Bio\" wird aber vom System nicht gefunden. Es erscheint die Meldung Pfad nicht gefunden.
Wie kann ich diesen Ordner auswählen?
Nochmals Danke und Gruß Udo
Anzeige
AW: Speichern unter - Pfad wird nicht genommen
29.10.2010 07:07:03
Udo
Und weiter geht's....
So sieht der Code bis jetzt aus: 
Sub ttx()
Sheets("Daten").Select
Const sPfad As String = "C:\Dokumente und Einstellungen\Public\Documents\Bio"
If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad
ChDir "C:\Dokumente und Einstellungen\Public\Documents\Bio"
Application.Dialogs(xlDialogSaveAs).Show Range("L278") & " " & Range("L282"), _
xlOpenXMLWorkbookMacroEnabled
End Sub
Funst fast, aber es wird das neu angelegte Verzeichnis nicht ausgewählt ?
morgentlicher Gruß von Udo
Anzeige
AW: Speichern unter - Pfad wird nicht genommen
29.10.2010 09:46:44
Rudi
Hallo,
gib doch einfach den Pfad komplett an.
Application.Dialogs(xlDialogSaveAs).Show sPfad &"\" &Range("L278") & " " & Range("L282")
oder so. (Was steht in den Zellen?)
ChDir funktioniert nur, wenn das aktuelle Laufwerk das des Pfades ist. ansonsten erst das LW wechseln. ChDrive "c:\"
Gruß
Rudi
Anzeige
AW: Speichern unter - Pfad wird nicht genommen
29.10.2010 11:44:08
Udo
Hallo Rudi,
ich bin ja so etwas von begeistert. :-)
Von wegen Rudi Ratlos, klappt jetzt wie die wilde Wutz !!
Danke und Gruß Udo
;

Forumthreads zu verwandten Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Anzeige
Die Arbeitsmappe kann nicht geschlossen werden!
Andreas

Die Arbeitsmappe kann nicht geschlossen werden, da sie von einer anderen
Arbeitsmappe verwendet wird!"
Diese Meldung bekomme ich in Excel 2007, wenn ich in meinem VBA- Code
"workbooks.close" verwende.
Es sind aber keine weiteren Mappen geöffnet, kann mir da jemand weiterhelfen?<...
13.08.2008 20:56:05
Thread-ID: 1001659
2 Beiträge
Kann nicht speichern!!!! BIG PROB
Maris

Hi zusammen,
habe großes Problem. Die Datei an der ich heute den ganzen Tag gearbeitet habe, läßt sich nach einem Excelfelhler nicht mehr speichern. Kam Meldung autospeichern deaktiviert. Wenn ich normal speichern will, dann kommt die Meldung Datei nicht gespeichert und er bricht ab. Wer ka...
10.11.2008 18:16:00
Thread-ID: 1023308
5 Beiträge
XML Datei kann nicht geöffnet werden
Josef

Guten Morgen!
Ich wollte mit folgendem code (gefunden in der Recherche) eine xml Datei aus einem Arbeitsblatt erstellen:
Sub Erzeuge_xml() Dim Original As String Dim Kopie As String Dim t As Integer If Len(Dir("H:\Statistik HVB", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden...
18.11.2008 07:44:00
Thread-ID: 1025458
2 Beiträge
Pivottable kann in 2003 nicht bearbeitet werden
Ralf

Hallo,
ein Kunde von mir arbeitet seit einiger Zeit mit Excel 2007 und erstellt
umfangreiche PivotTables.
Da einige Mitarbeiter aber noch mit Excel 2003 arbeiten, müssen diesen die Dateien
im 2003-Format zur Verfügung gestellt werden. Dabei wurde festgestellt, dass die
Pivot...
08.01.2009 19:08:36
Thread-ID: 1038015
3 Beiträge
Anzeige
Probleme beim "Speichern unter"
Volti

Hallo Forum,
seit einiger Zeit spinnt Excel jetzt völlig.
Klickt man "Speichern unter" und gibt anschließend den neuen Namen oder auch den alten im Speichern-Dialog an, durchläuft Excel anscheinend einige meiner Makros und landet immmer auf dem selben Registerblatt. Danach läßt sich da...
21.01.2009 13:35:00
Thread-ID: 1042155
4 Beiträge
Fehlermeldung "Objekt kann nicht entladen werden"
Nik

Hallo.
Bin am Verzweifeln.
Mein excel ist im VB-Editor offen und ich versuche, das Projekt zu speichern.
Es kommt immer wieder die Fehlermeldung, dass ich excel nicht speichern kann.
Im VB-Editor versuche ich, die Userform frmStart zu schließen.
Es kommt die Fehlermeldung La...
24.02.2009 13:59:02
Thread-ID: 1053502
2 Beiträge
Anzeige
Tabelle läßt sich nicht mehr speichern
Judith


Hallo,
habe eine ziemlich große Excel Tabell (3,499KB) mit 10 tabellenblättern, in die ich jeden Monat Werte eintrage. Bis dato hat immer alles funktioniert. Seit heute läßt sie sich nicht mehr speichern. Die angehängte Fehlermeldung erscheint.
Hatte das Problem schon mal mit Exce...
10.03.2009 15:31:15
Thread-ID: 1058724
6 Beiträge
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Anzeige
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Zahlen werden nicht erkannt
Emanuel

Hallo,
ich habe ein Problem mit einer fremden Excel-Datei. Ich kann in Spalte G (bzw. H - war ein Selbstversuch) keine Summen bilden. Anscheinend wird diese Spalte nicht als Zahlenspalte erkannt auch nach Formatierung etc.
Könnt Ihr mir da weiterhelfen?
Viele Grüsse Emanuel
Link...
02.09.2009 11:32:24
Thread-ID: 1100009
9 Beiträge
Copy kann nicht ausgeführt werden
Heinz

Liebe Excelfreunde,
ich schlage mich schon lange mit folgendem Problem herum:
Ich habe einige Wertungsroutinen für einen Triathlon-Cup geschrieben. Da gibt es Einzel-, Gesamt- und Altersklassenwertungen. Das Ganze läuft einige Zeit. Bei der letzten (Altersklassen) Wertung gibt es plötzl...
08.10.2009 17:24:53
Thread-ID: 1108209
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige