Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SaveAs nit VBA

Forumthread: SaveAs nit VBA

SaveAs nit VBA
05.10.2002 20:34:32
Jochen
Hallo alle zuammen!

Wie muss das Macro aussehen, dass unter dem Namen, der in Zelle A1 steht, gespeichet wird?

Danke für Eure Hilfe.


So geht es nicht :(

Sub SaveAs()
Speichername = Range("A1")
ActiveWorkbook.SaveAs _
Filename:="C:\eigene Dateien\Speichername.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: SaveAs nit VBA
05.10.2002 20:48:22
Hajo_Zi
Hallo Jochen

ich mach das mal live
Sub SaveAs()
Speichername = Range("A1")
ActiveWorkbook.SaveAs _
Filename:="C:\eigene Dateien\" & Speichername& ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Gruß Hajo

Anzeige
Re: SaveAs nit VBA
05.10.2002 20:50:22
Ralf-Eckhard
Mit diesem Makro geht es auch:

Sub saving()
'
' saving Makro
' Makro am 20.08.2002 von Ralf-Eckhard Böhne-Wilke aufgezeichnet
'
Dim fname As String

fname = Worksheets("Konfiguration").Range("E9").Text
ActiveWorkbook.Close True, fname
'
End Sub

Re: SaveAs nit VBA
05.10.2002 20:50:42
PeterW
Hallo Jochen,

Filename:="C:\Eigene Dateien\" & Speichername & ".xls",...

könnte klappen. (nicht getestet!)
Lass Dir im Makro in einer MsgBox den Namen an dieser Stelle des Makros ausgeben, dann kannst Du den Fehler schneller eingrenzen.
Gruß
Peter

Anzeige
Re: SaveAs nit VBA
05.10.2002 20:53:56
Ralf-Eckhard
Sorry Jochen, das erste Posting war nicht so richtig korrekt, hier nochmal das Makro:

Sub saving()
'
' saving Makro
' Makro am 20.08.2002 von Ralf-Eckhard Böhne-Wilke aufgezeichnet
'
Dim fname As String

fname = Worksheets("Tabelle1").Range("A1").Text
ActiveWorkbook.Close True, fname
'
End Sub


Anzeige
Frage dazu....
05.10.2002 21:46:13
Friedl G.
Hallo

Ich habe dazu ne Frage...
Ich verwende ein Makro wie folgt:
Sub RechnungSpeichernUnter()
Dim DName As String, aktDir As String
'aktDir = CurDir 'ggf. löschen**********************
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
ActiveSheet.Copy
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
'ChDir aktDir 'ggf. löschen**********************
ActiveWorkbook.Close
End Sub

Und möchte jetzt, dass ich aus der Zusammensetzung von 3 Zellen den Dateinamen für "Speichern unter" bilde.
Dazu ist noch zu sagen, dass ich ein Worksheet speichere und dann zum Workbook wieder zurückkehren möchte..

Ist dass machbar ??

Danke und Grüße
Friedl

Anzeige
;

Forumthreads zu verwandten Themen

SaveCopyAs will nicht so
Christoph

Hallo zusammen.
Ich habe eine Datei "Kundenadressen.xls" in der code ausgeführt wird.
Jetzt möchte ich die DAtei um folgenden Backupcode erweitern:
Sub speichern() ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\Kundenadressen_" & Right(Year(Date), 2) & _ Month(Date...
03.11.2008 17:09:00
Thread-ID: 1021384
4 Beiträge
ActiveWorkbook.SaveAs
Larissa

Hallo,
jetzt habe ich doch noch eine Frage.
In meinem Makro habe ich die Funktion: ActiveWorkbook.SaveAs 'Name_Datum'
Die Datei wird dann in Eigene Dateien abgespeichert. Wenn an diesem Platz schon eine Datei mit diesem Namen vorliegt, kommt die typische Abfrage, ob die Datei übers...
12.09.2009 17:32:49
Thread-ID: 1102264
3 Beiträge
SaveCopyAs zerstört Formular?
Olaf Eichstaedt
Ich habe das Gleich gerade unter Windows 95 und mit meinem Excel 97SR2 probiert. Muss ich Euch verraten, dass es dort funktioniert, sprich keine misteriösen Fehlermeldungen produziert werden?
16.04.2002 22:06:23
Thread-ID: 113902
2 Beiträge
Hiiilfeeeee!!! SaveCopyAs - Fehler
Tobias

Hallöchen,
ich habe zwei echt nervende Fehler in meinem Code. habe ein relativ aufwendigen VBA - Code, deswegen kann ich den hier nicht komplett rein stellen. aber zu mindest bis zum ersten Problem kann ich ihn gern posten.
Also das Problem ist folgendes, ich habe eine Arbeitsmappe mit...
17.02.2010 16:24:54
Thread-ID: 1139210
2 Beiträge
SaveCopyAs-Methode
Iris

Hallo,
ich bräuchte dringend einen Rat. Ich möchte mithilfe eines Makros eine Kopie der aktuellen Datei erstellen. Das tut er auch. Leider funktionieren die Makros in der neu erstellten Datei nicht und die Symbolleiste, die sich sonst immer automatisch mit dem Programm öffnet, wird nicht ang...
12.05.2002 06:58:54
Thread-ID: 120235
2 Beiträge
Anzeige
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
Anzeige
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
SaveCopyAs und Hyperlink
Berny

Hallo Excelfreunde,
ich hab mal wieder ein Problem.
In einer Excelmappe werden Hyperlinks eingefügt.
Beim Speichern der Mappe wird über ein Modul Workbook_BeforeSave eine Sicherungskopie mit UserName und Datum erstellt.
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\SOS\" &am...
19.11.2013 11:54:27
Thread-ID: 1339168
2 Beiträge
VBA select then copy then paste
Paul

Hallo Leute,
ich hoffe Ihr könnt mir helfen. Ich möchte aus Tabelle 1 zunächst Spalte M nach dem Wert/Wort "Germany" durchsuchen, anschließend aus der Spalte AF den korrespondierenden Wert in Tabelle 2 Spalte F einfügen. Das ganze sollte möglichst über ein Command Button in Tabelle 2 laufe...
27.12.2013 18:35:00
Thread-ID: 1343585
7 Beiträge
Anzeige
VBA: Dynamisches Copy-Pasten mittels Identifier
Hamiltonian

Hallo liebe Forengemeinde,
nachdem ich schon eine halbe Ewigkeit fleißig mitlese und mir die ein oder andere Antwort wie auch Tutorials über schwere Excelzeiten hinweg geholfen haben, muss ich mich jetzt doch mit einem eigenen Thread mal an euch wenden.
Vorab: Ich konnte in der Suche ni...
22.04.2014 20:00:18
Thread-ID: 1358213
4 Beiträge
VBA Outlook 2010 Fehler (xlDialogSaveAs).Show
Thorsten

Hallo,
ich versuche eMail-Anhänge zu speichern.
Der genaue Speicherpfad steht in den Anhängen(.xls) der eMail.
Leider ist der Name/ Bezeichnung immer anders.
Die Anhänge werden temporär gespeichert, geöffnet und dann kommt mein Problem:
der Benutzer soll das Speicherverzeich...
07.06.2014 07:21:41
Thread-ID: 1365046
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Speichern unter in Excel VBA: So geht's

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke mit der rechten Maustaste auf dein Projekt im Projekt-Explorer, wähle „Einfügen“ und dann „Modul“.

  3. Makro schreiben: Füge den folgenden Code in das Modul ein, um die Datei unter dem Namen in Zelle A1 zu speichern:

    Sub SaveAs()
    Dim Speichername As String
    Speichername = Range("A1").Value
    ActiveWorkbook.SaveAs _
        Filename:="C:\Eigene Dateien\" & Speichername & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Datei zu speichern.

Häufige Fehler und Lösungen

  • Fehler bei Dateipfad: Wenn der angegebene Pfad nicht existiert, erhältst du einen Laufzeitfehler. Stelle sicher, dass der Pfad korrekt ist und die benötigten Ordner vorhanden sind.

  • Dateiname leer: Wenn in Zelle A1 kein Name steht, führt dies zu einem Fehler. Füge eine Überprüfung hinzu:

    If Speichername = "" Then
    MsgBox "Bitte einen Dateinamen in Zelle A1 eingeben."
    Exit Sub
End If

  • Dateiformat nicht unterstützt: Achte darauf, das richtige FileFormat zu verwenden. Bei Bedarf kannst du fileformat:=xlopenxmlworkbookmacroenabled für Makros verwenden.

Alternative Methoden

  • VBA SaveCopyAs: Wenn du die aktuelle Arbeitsmappe als Kopie speichern möchtest, ohne sie geschlossen zu haben, kannst du die Methode ThisWorkbook.SaveCopyAs verwenden:

    ThisWorkbook.SaveCopyAs "C:\Eigene Dateien\Kopie_" & Speichername & ".xls"

  • ActiveSheet speichern: Um nur das aktive Blatt zu speichern, benutze ActiveSheet.Copy zusammen mit Application.ActiveWorkbook.SaveAs.

Praktische Beispiele

  1. Speichern unter einem zusammengesetzten Namen:

    Sub SaveCombinedName()
    Dim DName As String
    DName = Worksheets("Tabelle1").Range("A1").Value & "_" & Worksheets("Tabelle1").Range("B1").Value
    ActiveWorkbook.SaveAs "C:\Eigene Dateien\" & DName & ".xls"
End Sub

  2. Speichern mit Benutzerabfrage:

    Sub SaveWithDialog()
    Dim DName As Variant
    DName = Application.GetSaveAsFilename(FileFilter:="Excel Arbeitsmappe (*.xls), *.xls")
    If DName <> False Then
        ActiveWorkbook.SaveAs Filename:=DName, FileFormat:=xlNormal
    End If
End Sub

Tipps für Profis

  • Backup erstellen: Verwende CreateBackup:=True, um automatisch eine Sicherungskopie der Datei zu erstellen.

  • Fehlerbehandlung: Füge On Error Resume Next und On Error GoTo 0 ein, um Laufzeitfehler elegant zu behandeln.

    On Error Resume Next
ActiveWorkbook.SaveAs Filename:="C:\Eigene Dateien\" & Speichername & ".xls"
If Err.Number <> 0 Then
    MsgBox "Fehler beim Speichern: " & Err.Description
End If
On Error GoTo 0

FAQ: Häufige Fragen

1. Wie speichere ich ein Workbook in einem anderen Format?
Du kannst das FileFormat im SaveAs-Befehl ändern, z. B. FileFormat:=xlOpenXMLWorkbookMacroEnabled für eine .xlsm-Datei.

2. Was passiert, wenn der Dateiname bereits existiert?
Wenn der Dateiname existiert, wird Excel eine Fehlermeldung ausgeben. Du kannst die Methode adsavecreateoverwrite vba verwenden, um diese Situation zu handhaben.

3. Kann ich ein Blatt speichern und dann zum Workbook zurückkehren?
Ja, indem du ActiveSheet.Copy verwendest, kannst du das Blatt speichern, und danach mit ThisWorkbook.Activate zurückkehren.

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