MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 07.12.2018, 11:05   #1
tw3aker
MOF User
MOF User
Standard Excel2010 - Speichern unter

Hallo,
sicher nicht schwierig, komme gerade aber nicht drauf. Habe jetzt in den letzten zwei Stunden auch keine Lösung im Internet gefunden.
Ich will, wenn ich meine Excel Vorlage speichere, an demselben Speicher Ort auch eine .pdf aus dem Arbeitsblatt Diagramm erzeugt haben. ohne dieses noch einmal extra speichern zu müssen. am besten mit demselben Namen wie die Excel Datei.
Hoffe ihr könnt mir helfen
Danke und Gruß
tw3aker ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 11:24   #2
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Erstelle ein Makro mittels Makrorecorder, in dem du deine Datei als pdf exportierst. Stelle dabei beim Start des Makrorekorders die Einstellung "Makro speichern in:" auf "Persönliche Makroarbeitsmappe", dann ist dein Makro in jeder Datei verfügbar.

Der aufgezeichnete Makrocode sieht dann vermutlich so aus:
Code:

        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\User\Desktop\DeinDateiname.pdf", 
Quality:=xlQualityStandard, _
Den änderst du auf
Code:

        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf", 
Quality:=xlQualityStandard, _

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 11:50   #3
tw3aker
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Berni,

tausen Dank! das wars. Das mit dem Record klappte vorher schon, kam nur gerade nicht drauf mit dem

Zitat:

ThisWorkbook.Path & "" & ThisWorkbook.Name & ".pdf"

Danke
Gruß
tw3aker ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 11:57   #4
tw3aker
Threadstarter Threadstarter
MOF User
MOF User
Standard

Habe was vergessen, wie bekomme ich aus

Zitat:

ThisWorkbook.Name

die Endung weg?
sprich aktuell speichert er die pdf
Test.xlsm.pdf
Gruß
tw3aker ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 12:03   #5
EarlFred
MOF Guru
MOF Guru
Standard

Hallo Gruß,

Code:

Replace(ThisWorkbook.Name, "." & Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, "."))), "")
Wie startest Du den Code? Das Ereignis BeforeSave ist ja ungeeignet, da es vor Festlegung des Dateinamens startet.

@Berni
ThisWorkbook verweist dann aber auf die Personal.xls*.

Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 6 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,044% per 26.07.2018) - eine tolle Geste!

Geändert von EarlFred (07.12.2018 um 12:06 Uhr).
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 12:06   #6
tw3aker
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke EarlFred, das war es!
Perfekt, vielen Dank
tw3aker ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 12:08   #7
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Ach, klar... hab ich übersehen
Mach das über eine Variable!

Code:

Dim Dateiname as String

Dateiname = ThisWorkbook.Name
Dateiname = Left(Dateiname, InStr(Dateiname, ".") - 1)

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 12:09   #8
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

@Fred: Ach? Immer? Für mich war ThisWorkbook gleichbedeutend mit ActiveWorkbook. Anscheinend nicht.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 12:44   #9
Mc Santa
MOF Meister
MOF Meister
Standard

Zitat: von MisterBurns Beitrag anzeigen

@Fred: Ach? Immer? Für mich war ThisWorkbook gleichbedeutend mit ActiveWorkbook. Anscheinend nicht.

ThisWorkbook bezieht sich immer auf das Workbook, in welchem der aktuelle Code steht. Diese Variante ist sehr sicher, weil man hier genau weiß, welches Workbook angesprochen wird.

ActiveWorkbook bezieht sich auf das aktuell aktive Workbook. Bei dieser Ansprache muss man genau darauf achten, welches Workbook gerade im Vordergrund aufgerufen ist, dadurch wird der Code aber flexibel einsetzbar, insbesondere aus der Personal.xlsb heraus für eine andere geöffnete Arbeitsmappe.

__________________

Nützliches
Wie erstelle ich eine Pivot-Tabelle? (Link)
Alternative (Link ohne YouTube)

Du kannst hilfreiche Beiträge bewerten (Symbol unten links)
Mc Santa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.12.2018, 12:48   #10
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Aaaah, verstehe. Dankeschön!

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:12 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.