Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
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
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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Speichern unter + PDF exportieren

Forumthread: VBA - Speichern unter + PDF exportieren

VBA - Speichern unter + PDF exportieren
06.07.2024 13:55:38
Frank Nordheim
Hallo,

im Forum bin ich Neu.
Mit Excel habe ich seit den 90ern zu tun und kenne soweit aus.
Von VBA habe ich keine Ahnung, habe bis jetzt alles mit dem Recorder gemacht.

Folgendes ist meine Herausforderung:
Ich habe in Excel eine Datei erstellt, die folgende Tabellenblätter hat.
- "Mitglied" (hier werden Kerndaten von Baumärkten einer bestimmten Gruppe eingegeben (Name, Anschrift, Markt Nr., etc.)
- "Warenträger" (z.B. "WT-901-H11") - hiervon gibt es in der Excel Datei insgesamt 10 Tabellenblätter (10 verschieden Warenträger)
Die Tabellenblätter habe ich alle fertig aufgebaut und alles funktioniert. Die Datei ist so aufgebaut, dass wenn ich die Markt-Nummer eingebe, automatisch die Kerndaten des Marktes herausgefiltert werden und in die Tabellenblätter der Warenträger übernommen werden.

Mich quälen folgende 2 Szenarien (beide haben das gleiche Problem):

1. ...ich möchte gerne (in dem Tabellenblatt Mitglied) einen Button haben ("Datei speichern unter"), der mit einem Makro verbunden ist. Durch anklicken der Schaltfläche "Datei speichern unter" soll das Makro den Zelleninhalt O18 ("45477-151510 - Test Markt Testort") kopieren. Und die Datei auf dem Desktop, in dem Ordner Gruppe "Gruppennamen"* / Ordern "Sicherung", mit dem neuen Namen ("45477-151510 - Test Markt Testort") abspeichern ("Speichern unter"), ohne die Vorlage zu überschreiben.
*Der Gruppenname ist der Name einer Baumarktkette, die ich betreue.
Über den Recorder habe ich es schon geschafft, das umzusetzen, doch wenn ich dann eine zweite Datei (für einen andern Markt) speichern will dann wird der neue Dateiname (durch eine Verkettung erzeugt) überschrieben und unter dem alten Dateinamen gespeichert.

2. . ...durch anklicken der Schaltfläche "PDF erzeugen" soll das Makro den Zelleninhalt T1 ("45477-151510 - Test Markt Testort - Angebot Warenträger WT-901-H01") kopieren. Die Datei unter auf dem Desktop, in dem Ordner Gruppe "Gruppennamen"* / Order "Angebot", mit dem neuen Namen ("45477-151510 - Test Markt Testort - Angebot Warenträger WT-901-H01") als PDF abspeichern (über die Aktion "Datei" - "PDF-Exportieren" - die Möglichkeit bietet Excel, wenn ich in der Excel Datei "Datei" anklicke.), ohne eine andere Datei zu überschreiben.
*Der Gruppenname ist der Name einer Baumarktkette, die ich betreue.

In der Anlage sende ich gleich mal eine Excel Datei dazu (2 Tabellenblätter), die ein wenig zeigt, was ich machen möchte und wie es aufgebaut ist.

Ich würde mich sehr freuen, wenn mir jemand weiterhelfen könnte.

LG
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 17:10:00
JoWE
Hallo Frank,
vermutlich fehlt die Resonanz auf Deinen Beitrag weil alles auf die angekündigte Datei wartet.
Gruß
Jochen
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 21:48:44
Frank Nordheim
Hallo Jochen,

vielen Dank für Deine schnelle Hilfe und Sorry für meine späte Rückmeldung (Zeit ist ein knappes Gut für mich und ich habe viel um die Ohren).

Ich würde morgen das Makro mal umschreiben und Dir eine Rückmeldung senden.

Da ich in VBA nicht der Hellste bin, würde ich gerne mit Dir teilen, wie ich der VBA Code aussehen würde:

Die Datei speichern:
Name des Makros = „Datei Speichern“ (und auch des Buttons)

Option Explicit

Sub Speichern_unter_Klicken()
Dim strPath As String
Dim strFNAme As String
strPath = "C:\" & Environ("Hagebau") & "\" & Range("C11") & "\Sicherung\"
strFNAme = Range("O18")
ActiveWorkbook.SaveAs strPath & strFNAme
End Sub

PDF-Exportieren:
Name des Makros = „WT-901_H01_PDF“ (der Button hat den Namen „PDF-Speichern“

Option Explicit

Sub WT-901_H01_PDF _Klicken()
Dim strPath As String
Dim strFNAme As String
strPath = "C:\" & Environ("Hagebau") & "\" & Range("C11") & "\Sicherung\"
strFNAme = Range("O18")
ActiveWorkbook.SaveAs strPath & strFNAme
activesheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPath & strFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Habe ich das so richtig verstanden?
Ich bin da leider nicht ganz so pfiffig.
Wenn Du möchtest, dann könnte ich Dir auch mal eine original Datei präparieren (ich würde wichtige Zahlen löschen) und zusenden.
Ist dann vielleicht auch einfacher.

LG

Frank
Anzeige
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 22:34:07
JoWE
Frank,
zur Sicherheit: Liegen Arbeitsmappe und Sicherungsordner auf dem Desktop oder wo genau?
Ja lade die Mappe bitte nochmal hoch.
Wird allerdings eher Montag werden...
Willst Du vielleicht (D) eine Email-Adresse bekannt geben?

Jochen
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 22:46:14
Frank Nordheim
Hallo Jochen,

vielen Dank für Deine Hilfe.

Sehr gerne würde ich Deine Hilfe weiter in Anspruch nehmen.

Meine E-Mail Adresse lautet: fnordheim@googlemail.com

Wenn Du mir Deine sendest, dann würde ich morgen mal eine Mail mit Anhang senden.

Montag wäre okay, ich sowieso die ganze nächste Woche auf Geschäftsreise und komme erst am Freitag Nacht wieder zurück.

LG und noch mal vielen Dank!

Frank
Anzeige
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 22:56:04
Frank Nordheim
zur Sicherheit: Liegen Arbeitsmappe und Sicherungsordner auf dem Desktop oder wo genau?

...ach so, ja, die Struktur / Pfad ist wie folgt:

- Dieser PC
- Desktop
- Hagebau
- Sicherung

Ich bin am überlegen, ob ich die Datei dann in dem Ordner Sicherung speichere und für die PDF´s (das sind dann Angebote oder Bestellungen) separate Order in dem Ordner Hagebau anlege.
Würde dann so aussehen:
PDF-Bestellungen =
- Dieser PC
- Desktop
- Hagebau
- Bestellungen

PDF-Angebote =
- Dieser PC
- Desktop
- Hagebau
- Angebote

LG

Frank
Anzeige
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 18:57:00
JoWE
Hi Frank,

:-)) geht doch!

Hier schonmal ein Makro, gehört in die Desktop-Arbeitsmappe in ein eigenes Modul. 
Option Explicit



Sub RechteckabgerundeteEcken6_Klicken()

  Dim strPath As String

  Dim strFNAme As String

  strPath = "C:\" & Environ("Username") & "\" & Range("C11") & "\Sicherung\"

  strFNAme = Range("O18")

  ActiveWorkbook.SaveAs strPath & strFNAme

End Sub

Gruß
Jochen
Anzeige
AW: VBA - Speichern unter + PDF exportieren
06.07.2024 21:08:41
JoWE
Frank,
das schon vorhandene Makro musst Du für den Pdf-Export jetzt einfach nur kopieren, anders benennen und mit dem folgenden Code-Schnipsel 


activesheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=strPath & strFileName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False
anpassen.
Gruß
Jochen
Anzeige
;

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
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
.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
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
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Anzeige
Unterorden der Datei per VBA
PeTeR

Hallo VBA-Freaks,
ich bräuchte bitte kurz eure Hilfe:
activeworkbook. path ist der ganze Pfad. Ich brauche nur den letzten Unterordner.
z. B.: C:\....\Länder\Ägypten - Die Datei liegt im Ordner Ägypten.
Vielen Dank für eure Hilfe
PeTeR
12.11.2009 12:59:56
Thread-ID: 1116506
5 Beiträge
VBA - Datei speichern wenn Zelle AI1 erreicht
Stef@n

Hallo Excel-aner ;)
Ich arbeite mit einem Code, der der Reihe nach die Zeile 1 von der Spalte C1 bis AI1 "abarbeitet".
Nachdem der Code die Zelle AI1 abgearbeitet hat, soll die Datei gespeichert werden.
...
For Spalte = 3 To .Cells(1, Columns.Count).End(xlToLeft).Column 'die l...
24.11.2009 09:57:10
Thread-ID: 1119667
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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