Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Dateiname aus Zelle generieren und Speichern

Forumthread: VBA Dateiname aus Zelle generieren und Speichern

VBA Dateiname aus Zelle generieren und Speichern
31.01.2019 13:27:31
Tobias
Hallo zusammen,
ich bin auf der Suche nach einem Makro oder alternativ Makro+normale Excel-Funktion.
Ich habe eine Vorlage namens "FA+SN.xltm" (auf Laufwerk O:\)
in dieser Vorlage steht am Ende der Bearbeitung in der Zelle "S11" die Projektnummer (diese ist immer acht-stellig).
Diese möchte ich nun in einem bestimmten Verzeichnis speichern (natürlich als .xlsm - also keine Vorlage mehr).
Das Verzeichnis in welches gespeichert werden soll liegt auf dem Server
"I:\-- Aktuelle Projekte\" und beginnt immer mit der jeweiligen Projektnummer.
Ich möchte also die Vorlage "FA+SN.xltm" in den Ordner (Beispiel)
"I:\-- Aktuelle Projekte\12345678 Kunde Projekt" abspeichern,
wobei 12345678 dem Wert in Zelle "S11" entsprechen soll. (Projektnummer)
Der neue Dateiname der soll außerdem so aussehen: "FASN - 12345678.xlsm"
Meine Idee: (Achtung, ganz simpel)
Funktion:
Suche in Pfad "I:\-- Aktuelle Projekte\" den Ordner, dessen erste 8 Zeichen mit dem Wert in "S11" übereinstimmen.
Schreibe diesen Pfad in Zelle "W11"
Dann Makro ausführen (mit Button):
Speichere das ActiveWorkbook in den Pfad aus "W11" unter dem Dateinamen "FASN -" & Range("S11") & ".xlsm"
....
wie geht das?
Danke schon mal für eure Hilfe :)
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Dateiname aus Zelle generieren und Speichern
31.01.2019 13:36:09
Rudi
Hallo,
ist sicher gestellt, dass es den Ordner gibt?
activeworkbook.saveas "I:\-- Aktuelle Projekte\" &s11 &"\FASN-" &Range("S11"), xlOpenXMLWorkbookMacroEnabled
Gruß
Rudi
AW: VBA Dateiname aus Zelle generieren und Speichern
31.01.2019 13:53:33
Tobias
Hi Rudi,
danke erstmal für die schnelle Antwort.
Bisher scheint dein Code das zu tun was ich will - nur nicht ganz.
Die Datei wurde jetzt in dem Verzeichnis "I:\-- Aktuelle Projekte\" gespeichert und hat den Namen "FASN-45550119".
Ich werde jetzt mal etwas konkreter.
Ich teste mit der Projektnummer 45550119 (= der Wert in Zelle S11)
Das Verzeichnis, in welches gespeichert werden soll, existiert.
Dieses ist: "I:\-- Aktuelle Projekte\45550119 (ETS Lindgren Finnland) 6P00000897 (Orange)_FSM2320, CO3000-1D"
also nehme ich an, dass mit dem teil \" &s11 &"\ irgendwas nicht stimmt? - keine Ahnung...
Anzeige
AW: VBA Dateiname aus Zelle generieren und Speichern
31.01.2019 14:00:55
Rudi
aha! 
sPfad=Dir("I:\-- Aktuelle Projekte\" &s11 &"*", vbDirectory)
If sPfad "" then
Activeworkbook.SaveAs sPfad &"\" &s11 &"\FASN-" &Range("S11"), xlOpenXMLWorkbookMacroEnabled
Else
Msgbox "Ordner nicht vorhanden."
End If

Gruß
Rudi
Anzeige
Quatsch!
31.01.2019 14:02:33
Rudi
2x Range vergessen.
sPfad=Dir("I:\-- Aktuelle Projekte\" &Range("s11") &"*", vbDirectory)
If sPfad "" then
Activeworkbook.SaveAs sPfad &"\" &Range("s11") &"\FASN-" &Range("S11"),  _
xlOpenXMLWorkbookMacroEnabled
Else
Msgbox "Ordner nicht vorhanden."
End If

Anzeige
AW: Quatsch!
31.01.2019 14:12:13
Tobias
bekomme folgende Fehlermeldung
Userbild
dann prüfe das. owT
31.01.2019 14:19:23
Rudi
AW: dann prüfe das. owT
31.01.2019 14:35:37
Tobias
Naja ich dachte, dass mit dem code
sPfad = Dir("I:\-- Aktuelle Projekte\" & Range("s11") & "*", vbDirectory)
Der Speicherpfad angegeben wird.
Aber der will ja Auf C:\.... speichern - da gibt´s den Ordner natürlich nicht.
Außerdem soll der die Datei direkt in ..\45550119 (ETS Lindgren Finnland) 6P00000897 (Orange)_FSM2320, CO3000-1D speichern.
Die Fehlermeldung zeigt mir doch, dass er in ..\45550119 (ETS Lindgren Finnland) 6P00000897 (Orange)_FSM2320, CO3000-1D\45550119\E6846100 speichern will ...
mal abgesehen von den davor stehenden Pfadangaben (C:...)
Vielleicht sollte es ja so heißen:?
ActiveWorkbook.SaveAs sPfad & "FASN-" & Range("S11"),

Anzeige
AW: Quatsch!
31.01.2019 14:50:39
PeterK
Hallo
DIR liefert keine Laufwerksbuchstaben!
Activeworkbook.SaveAs "I:\" & sPfad &"\FASN-" &Range("S11"), xlOpenXMLWorkbookMacroEnabled
AW: Quatsch!
31.01.2019 15:03:20
Tobias
... ja genau...
hab´s selbst rausgefunden:
Da die Vorlage auf O:\ liegt und ich mit Excel (temporär) auf C:\ arbeite, muss man dem sagen,
dass er das Laufwerk auf I:\ und das Verzeichnis auf I:\-- Aktuelle Projekte\ wechselt.
Sieht dann so aus und funktioniert:

Sub Speichern_unter()
ChDrive "I"
ChDir "I:\-- Aktuelle Projekte\"
sPfad = Dir("I:\-- Aktuelle Projekte\" & Range("s11") & "*", vbDirectory)
If sPfad  "" Then
ActiveWorkbook.SaveAs sPfad & "\" & "FASN-" & Range("S11")
Else
MsgBox "Ordner nicht vorhanden."
End If
End Sub

Anzeige
AW: Quatsch!
31.01.2019 15:04:24
PeterK
Hallo
Stimmt noch nicht ganz (DIR liefert nur das gesuchte Unterdirectoy ohne Pfad)
Activeworkbook.SaveAs "I:\-- Aktuelle Projekte\" & sPfad & "\FASN-" & Range("S11"), xlOpenXMLWorkbookMacroEnabled
Ja. Stimmt. Nicht bedacht. owT
31.01.2019 16:03:33
Rudi
;

Forumthreads zu verwandten Themen

Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Dateiname aus Zelle
Daniel

Hallo Experten,
Ich hab mich nun den halben Tag durchs Forum gehangelt und komm irgendwie doch auf keinen grünen Zweig...
ich habe ein Datenblatt, das von den verschiedensten Leuten verwendet wird; dieses liegt als Vorlage auf dem Server. (N:\Abteilung\Gruppe\Vorlage.xlt)
Nun habe i...
06.09.2009 10:21:50
Thread-ID: 1100641
6 Beiträge
Datum aus 2 Zellen in 1 Zelle übernehmen
gerhard

Hallo zusammen,
Bitte um VBA Hilfe!
In meiner Tabelle stehen in der Spalte H ein Datum im Format z.B in der Zelle H50 29.07.2008 in der Spalte I steht ebenfalls ein Datum im Format z.B in der Zelle I50 06.10.2008
Jetzt soll in der Spalte G in Zelle G50 automatisch folgender Eintrag...
11.09.2009 07:40:30
Thread-ID: 1101896
3 Beiträge
Zeilenhöhe aus Zelle bestimmter Sp übernehmen
Peter

Guten Tag
Ich habe eine Tabelle, in der in Spalte G ab Zeile 1 bis x steht, wieviel die Zeilenhöhe betragen soll. Nun möchte ich diese Zeilenhöhen mit Makro zuweisen und zwar zuerst die letzte Zeile mit Inhalt anwählen und dann rückwärts bis Zeile 1 abarbeiten.
Mit nachstehendem Code bi...
26.10.2009 14:49:49
Thread-ID: 1112247
3 Beiträge
Dateiname aus Zelle mit den ersten 7 Zeichen
geri

Hallo
kurze frage ist es möglich mit den ersten 7 zeichen von Zellinhalt so wie mit Wildcard
open FILEx*.xls File öffnen, der Hintergrund ist ich muss aus Liste mit Verweis eine Datei öffnen die ersten 7
Zeichen umschreiben das File bereits, hinten nach kommt eher unwichtiges un...
13.11.2009 15:38:34
Thread-ID: 1116973
5 Beiträge
Numerischen Teilstring aus Zelle übernehmen | Herbers Excel-Forum
RalfTh
Hilfe
Ich bin ein absoluter Anfänger und hatte schon die Lösung aber leider ist mir das Excel abgeraucht.
Ich finde die eingesetzte Funktion aber nicht mehr, es ist zum verzweifeln.
Hier also mein Problem:
Ich habe in einer Zelle einen String stehen der einen in "()" gefassten nume...
14.01.2010 13:41:47
Thread-ID: 1129897
7 Beiträge
Anzeige
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Anzeige
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA zur automatischen Dateinamen-Generierung aus einer Zelle

Schritt-für-Schritt-Anleitung

Um ein Excel-Makro zu erstellen, das den Dateinamen aus einer Zelle generiert und die Datei speichert, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projektfenster auf dein Workbook und wähle Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub Speichern_unter()
   ChDrive "I"
   ChDir "I:\-- Aktuelle Projekte\"
   Dim sPfad As String
   sPfad = Dir("I:\-- Aktuelle Projekte\" & Range("S11") & "*", vbDirectory)
   If sPfad <> "" Then
       ActiveWorkbook.SaveAs sPfad & "\FASN-" & Range("S11").Value & ".xlsm", xlOpenXMLWorkbookMacroEnabled
   Else
       MsgBox "Ordner nicht vorhanden."
   End If
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Füge einen Button hinzu, um das Makro auszuführen:

    • Gehe zu Entwicklertools > Einfügen und wähle einen Button aus.
    • Weise dem Button das Makro Speichern_unter zu.

  6. Fülle die Zelle S11 mit der entsprechenden Projektnummer.

  7. Klicke auf den Button, um die Datei zu speichern.

Häufige Fehler und Lösungen

  • Fehler: Ordner nicht vorhanden
    Stelle sicher, dass der Ordner für die Projektnummer existiert. Überprüfe den Pfad und die Schreibweise.

  • Fehler: Datei wird im falschen Verzeichnis gespeichert
    Achte darauf, dass der Code ChDrive und ChDir korrekt verwendet wird, um das richtige Laufwerk und Verzeichnis zu setzen.

  • Fehler: Datei wird nicht als .xlsm gespeichert
    Stelle sicher, dass der Dateiname im SaveAs Befehl die Endung .xlsm enthält.

Alternative Methoden

Falls du keinen VBA-Code nutzen möchtest, kannst du auch folgende Excel-Funktionen verwenden:

  • Verwende die Funktion =VERKETTEN():

    • Erstelle den Dateinamen in einer Zelle, z.B. =VERKETTEN("FASN - "; S11; ".xlsm").

  • Speichere die Datei manuell:

    • Gehe auf Datei > Speichern unter und wähle den gewünschten Pfad, während du den gewünschten Dateinamen manuell eingibst.

Praktische Beispiele

  1. Beispiel 1: Speichern unter Projektname
    Wenn in Zelle S11 die Projektnummer 12345678 steht, wird die Datei unter I:\-- Aktuelle Projekte\12345678\FASN-12345678.xlsm gespeichert.

  2. Beispiel 2: Verwendung eines anderen Verzeichnisses
    Ändere den Pfad im VBA-Code, um die Datei an einem anderen Ort zu speichern. Achte darauf, dass das Verzeichnis existiert.

Tipps für Profis

  • Fehlerbehandlung hinzufügen: Es ist ratsam, im Makro eine umfassendere Fehlerbehandlung einzuführen, um unerwartete Probleme zu erkennen und zu beheben.

  • Makro auf andere Zellen erweitern: Modifiziere den Code, um mehrere Zellen zu berücksichtigen, falls du mehrere Projektnummern speichern möchtest.

  • Dokumentation: Kommentiere deinen Code gut, damit du und andere Benutzer verstehen, was jeder Teil des Codes macht.

FAQ: Häufige Fragen

1. Wie kann ich den Speichervorgang automatisieren?
Du kannst das Makro in ein Ereignis einfügen, z.B. Workbook_BeforeClose, um die Datei automatisch zu speichern, wenn die Arbeitsmappe geschlossen wird.

2. Was passiert, wenn die Projektnummer nicht existiert?
Das Makro gibt eine Fehlermeldung aus, dass der Ordner nicht vorhanden ist. Stelle sicher, dass die Projektnummer korrekt in der Zelle S11 eingegeben wurde.

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