Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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

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
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

299 Forumthreads zu ähnlichen 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
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
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
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
Datei speichern, wenn vorhanden nicht überschreibe
Elias

Hallo Forum,
ich brauche mal wieder ein wenig Hilfe.
Unten findet Ihr den Code eines Buttons, mit dessen Hilfe ich eine Datei unter einem
sich aus der Excel-Datei ergebenden Namen in einem fix vorgegebenen Pfad im Datei-
system anlege.
Nun bestünde theoretisch die Möglichkei...
17.03.2009 15:24:49
Thread-ID: 1061133
3 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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
4
1
2
3
1
5
2
2
2
8
2
2
1
1
3
5
2
9
3
1
4
1
3