Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei speichern unter

Forumthread: Datei speichern unter

Datei speichern unter
04.09.2002 15:43:10
Friedl G.
Hallo Forum

Wieder mal ich....
Ich habe ein Makro für "datei speichern unter"...
Es funktioniert auch - Aber - Ich möchte im Makro schon den richtigen Pfad vordefinieren - Nur - Wie...???

Bitte um Hilfe

Mein Makro:
Sub Speichern()
: : Dim varSave As Variant
: : varSave = Application.GetSaveAsFilename(filefilter:="Excel-Dateien (*.xls), *.xls")
: : If varSave = False Then Exit Sub
: : ActiveWorkbook.SaveAs Filename:=varSave
: : End Sub
: :

Gruß und Dank im Voraus
Friedl

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datei speichern unter
04.09.2002 15:45:59
L.Vira
Sub Speichern()
Const DPfad as string = "DeinPfad\"
Dim varSave As Variant
varSave = Application.GetSaveAsFilename(filefilter:="Excel-Dateien (*.xls), *.xls")
If varSave = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=DPfad & varSave
End Sub
Re: Datei speichern unter
04.09.2002 15:47:18
Maria Winter
Du wechselst vorher per Makro in das entsprechende Verzeichnis. (IIRC)
Anzeige
Re: Datei speichern unter
04.09.2002 15:58:10
Friedl G.
Hallo L.Vira

Lautet die Pfadangabe "C:\........\
oder ohne "C:"

Gruß und Dank Friedl

Re: Datei speichern unter
04.09.2002 16:04:36
Friedl G.
So sieht mein Makro jetzt aus

Sub Speichern()
Const DPfad As String = "C:\Eigene Dateien\Backstage\Ausgangs Rechnungen"
Dim varSave As Variant
varSave = Application.GetSaveAsFilename(filefilter:="Excel-Dateien (*.xls), *.xls")
If varSave = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:="C:\Eigene Dateien\Backstage\Ausgangs Rechnungen" & varSave
End Sub

F.

Anzeige
Re: Datei speichern unter
04.09.2002 16:26:40
L.Vira
Sorry, war ein Fehler, aber da du den Pfad schon mal als Konstante hast, musst du ihn unten nicht nochmal eingeben, nur den Variablennamen:
ActiveWorkbook.SaveAs Filename:=DPfad & varSave
Re: Datei speichern unter
04.09.2002 16:41:36
Friedl G.
Sorry, mein Makro sieht wie folgt aus:

Sub Speichern()
Const DPfad As String = "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
Dim varSave As Variant
varSave = Application.GetSaveAsFilename(filefilter:="Excel-Dateien (*.xls), *.xls")
If varSave = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=DPfad & varSave
End Sub

Beim btätigen des Steuerelementes wird im Dialogfenster "Speichern unter" der Quellpfad der Datei gewählt...???

Wo kann das Problem liegen ??

Gruß Friedl

Anzeige
Re: Datei speichern unter
04.09.2002 16:54:13
L.Vira
Sorry, ist wohl heute nicht mein Tag, das Ganze ist überflüssig, den Dialog brauchst du gar nicht, wenn du den Pfad und den dateinamen hast, nur was ist dein Dateiname?
Re: Datei speichern unter
04.09.2002 17:26:23
Friedl G.
Hallo L.Vira

Bei "Speichern unter...." ist der Dateinamen ja eben variabel, wichtig wäre nur das vordefinierte Zielverzeichnis für die Speicherung.

Tja...
Friedl

Anzeige
So, jetzt aber...
04.09.2002 17:55:24
L.Vira
''Wenn du nicht zum ursprünglichen Pfad zurück willst
''lösch die markierten Zeilen
Option Explicit
Sub Mappe_speichern()
Dim DName As String, aktDir As String
aktDir = CurDir 'ggf. löschen**********************
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ChDir aktDir 'ggf. löschen**********************
End Sub

Anzeige
Re: Super funktioniert !!!
04.09.2002 18:11:34
Friedl G.
Super...

Habs ohne zu verändern übernommen - Und es funktioniert.
Bin begeistert - Ja, die Profis muss man fragen

Big Smile
Friedl

;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Datei "umspeichern" - VBA
Wolfgang

Hallo,
mit untenstehendem Code werden Daten aus einer tmp-Datei importiert. Es wird immer die zuletzt generierte Datei angesprochen. Seit geraumer Zeit wird nun diese tmp-Datei in einem UTF-8-Format "geliefert", welches dazu führt, dass die Umlaute nicht sauber importiert werden. Nun kam mi...
21.09.2008 14:46:00
Thread-ID: 1011301
4 Beiträge
Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Datei speichern unter mit Zellverknüpfung
herbi

Hallo,
habe schon viel im Forum gesucht, komme aber mit meinem Problem nicht weiter.
habe eine Datei mit Namen z.b. test.xls
in Zelle b8 steht ein Datum, im Format TT.MM.YYYY zum Beispiel 01.03.2009
ich möchte per Makro die "Datei speichern unter" den alten Namen um das Datum de...
04.03.2009 14:12:05
Thread-ID: 1056392
5 Beiträge
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Anzeige
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
Anzeige
Makro Drucken & Speichern unter
massimo17

Hallo,
ich habe folgendes Makro, dass aus Excel eine Word-Datei mit Serienfunktion öffnet.
Wie kann ich automatisieren,
dass diese auch gleich gedruckt wird?
dass diese unter einem Namen i.A. von einer Zelle gespeichert wird?
Private Sub CommandButton2_Click() Dim wApp A...
02.07.2009 11:42:40
Thread-ID: 1085901
4 Beiträge
VBA-Exceldatei unter Excel 2003 und 2007 nutzen
Martin

Hallo,
ich mache mir den Umstieg von Excel 2003 auf 2007 ziemlich schwer, will aber den Anschluss nicht verpassen und daher auf einem PC gerne unter Excel 2007 arbeiten.
Meine Frage: Ich arbeite sehr intensiv mit einer Exceldatei, in der es zahlreiche benutzerdefinierte über VBA erzeugt...
14.07.2009 12:29:24
Thread-ID: 1088399
5 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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