Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für" Speichern unter" und "Dateinamen"

Forumthread: Makro für" Speichern unter" und "Dateinamen"

Makro für" Speichern unter" und "Dateinamen"
08.01.2018 12:37:28
Andreas
Hallo zusammen,
hab da ein Problem mit einem Makro.
Da ich Makro nur mit Recorder kann bin ich schon ziemlich aufgeschmissen.
Hab eine vereinfachte Datei hochgeladen.
https://www.herber.de/bbs/user/118775.xlsm
Mein Arbeitsblatt besteht (Druckbereich) 6 Seiten.
Diese möchte ich mittels Button (6Stk.-ein Button für jede Seite extra)
unter einem vorgegebenen Pfad, als "pdf" und mit vorgegebenen "Dateinamen" aus
dem Excel-Arbeitsblatt, abspeichern.
Mit dem Recorder bekomme ich das soweit hin, dass der Pfad, das "pdf" speichern und die "Seitenauswahl" funktioniert.
Den Dateinamen bekomme ich aber nicht auf die Reihe.
Immer wenn ich mit Range("E9")&Range("L1") arbeite; wäre der Dateiname für Seite1,
bekomme ich Fehlermeldungen.
Hoffe ihr könnt mir helfen.
Vielen Dank im voraus
LG Andreas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für" Speichern unter" und "Dateinamen"
08.01.2018 12:46:06
Bernd
Hi,
teste mal so:
Sub Seite1_speichern()
' Seite1_speichern Makro
ChDir "D:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & Range("E9") & Range("L1"), Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub
MfG Bernd
Anzeige
AW: Makro für" Speichern unter" und "Dateinamen"
08.01.2018 12:49:03
UweD
Hallo
ungetestet:
... Filename:= "D:\" & Range("E9") & "_" & Range("L1") & ".pdf",

LG UweD
AW: Makro für" Speichern unter" und "Dateinamen"
08.01.2018 13:49:59
Andreas
Hallo Uwe, hallo Bernd,
vielen Dank für eure Antwort,
funktioniert genauso wie ich mir das vorgestellt habe.
Vielen, vielen Dank
und noch einen schönen Tag,
LG Andreas
Anzeige
gern geschehen owT
08.01.2018 13:52:43
UweD
;

Forumthreads zu verwandten Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
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
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
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
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
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
.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 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
Datei speichern unter +1 vomn Datei | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
zunächst mal ein frohes neues Jahr an Allen....und hoffe euch Allen geht's gut.... :D
Brauche mal wieder eure Hilfe, und zwar:
In einem Ordner soll eine Datei abgespeichert werden, Speichername soll sein: 001-heutiges Datum (001-05.01.2010) die Nummer soll dann imme...
05.01.2010 11:59:44
Thread-ID: 1127262
5 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

Makro für "Speichern unter" und "Dateinamen" in Excel

Schritt-für-Schritt-Anleitung

Um ein Excel-Makro zu erstellen, das eine Arbeitsblattseite als PDF speichert und dabei einen spezifischen Dateinamen verwendet, gehe wie folgt vor:

  1. Öffne die Excel-Datei: Stelle sicher, dass du die Datei geöffnet hast, die das Makro enthalten soll.

  2. Aktiviere den Entwicklermodus: Gehe zu Datei > Optionen > Menüband anpassen und aktiviere das Kontrollkästchen für den Entwicklermodus.

  3. Öffne den Visual Basic-Editor: Klicke auf Entwicklertools und dann auf Visual Basic.

  4. Erstelle ein neues Modul: Klicke mit der rechten Maustaste im Projekt-Explorer und wähle Einfügen > Modul.

  5. Füge den VBA-Code ein: Kopiere den folgenden Code in das Modul:

    Sub Seite1_speichern()
    ' Seite1_speichern Makro
    ChDir "D:\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\" & Range("E9") & "_" & Range("L1") & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

  6. Schließe den Editor und kehre zur Excel-Oberfläche zurück.

  7. Führe das Makro aus: Klicke auf Entwicklertools > Makros, wähle Seite1_speichern aus und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: Pfad nicht gefunden

    • Lösung: Stelle sicher, dass der angegebene Pfad (z.B. "D:\") existiert. Andernfalls kannst du den Pfad in deinem Code anpassen.

  • Fehler: Ungültiger Dateiname

    • Lösung: Überprüfe die Werte in den Zellen E9 und L1. Diese dürfen keine ungültigen Zeichen enthalten (z.B. /, \, :, *, ?, ", <, >, |).

  • Fehler: Export nicht möglich

    • Lösung: Vergewissere dich, dass das aktive Arbeitsblatt den Druckbereich korrekt festgelegt hat.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du die Funktion „Speichern unter“ manuell nutzen:

  1. Klicke auf Datei > Speichern unter.
  2. Wähle den gewünschten Speicherort aus.
  3. Gib den gewünschten Dateinamen ein und wähle „PDF“ als Dateiformat.

Für eine dynamische Lösung kannst du auch ein Excel-Add-In verwenden, das PDF-Exportfunktionen bietet.

Praktische Beispiele

Hier ist ein praktisches Beispiel für das Speichern einer Excel-Seite als PDF mit vordefinierten Parametern:

  • Beispiel: Du möchtest die erste Seite deiner Excel-Datei als PDF speichern und die Zellen E9 (z.B. "Bericht") und L1 (z.B. "Januar 2023") als Dateinamen verwenden. Der Code sieht wie folgt aus:

    Sub Bericht_speichern()
    ChDir "D:\Berichte\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\Berichte\" & Range("E9") & "_" & Range("L1") & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub

Tipps für Profis

  • Dynamische Pfade: Anstatt einen festen Pfad zu verwenden, kannst du den Benutzer auffordern, einen Pfad auszuwählen. Verwende dazu den Application.FileDialog:

    Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
If fDialog.Show = -1 Then
    ChDir fDialog.SelectedItems(1)
End If

  • Mehrere Seiten speichern: Wenn du für jede Seite ein eigenes Makro hast, achte darauf, die Variablen für die Dateinamen entsprechend anzupassen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich das Makro anpassen, um mehrere Seiten gleichzeitig zu speichern?
Antwort: Du kannst eine Schleife verwenden, um alle gewünschten Seiten hintereinander zu speichern, indem du die ActiveSheet-Referenz änderst.

2. Frage
Kann ich das Makro für andere Dateiformate verwenden?
Antwort: Ja, du kannst den Type-Parameter in ExportAsFixedFormat anpassen, um andere Formate zu unterstützen, allerdings ist PDF der Standard für den Export.

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