VBA Makro, Datei speichern mit Zellnamen als PDF

Hallo,

wenn es nur darum geht, das Dokument als PDF zu versenden, so kannst du den entsprechenden Befehl "Senden" der Symbolleiste für den Schnellzugriff hinzufügen. Es wird eine E-Mail erstellt, der das Dokument als PDF-Datei angehängt ist.

Geht es darum, das Dokument per einfachem Mausklick (ohne Rückfrage) als PDF-Datei zu speichern, findest du in folgender Diskussion ein passendes Makro: http://ideophone.org/one-click-save-as-pdf-word-2007-2010-2013/

Soll bei jedem (Zwischen-)Speichern des Dokuments gleichzeitig eine Kopie unter gleichem Namen im selben Ordner als PDF-Datei hinterlegt werden, müsstest du ebenfalls eine VBA-Lösung verwenden.

Viele Grüße

Lisa

Hallo Claus,

natürlich hast du recht. Meine WENN-Formel ginge auch einfacher mit A2=X2, war aber auch ein nur ein (zugegeben unglückliches) Beispiel für die vielen WENN-Formeln, die ich in Zeile 2 habe.

Natürlich könnte ich alle WENN-Formeln auch in einem Makro effektiver abbilden, wie du hier demonstriert hast.



Allerdings verhält es sich etwas anders: Die Wenn-Formeln sollen für alle offen gelegt und nachvollziehbar bleiben. Insbesondere, da sich immer wieder an denen etwas ändert.

Und das noch verstärkt:

Anstelle der Zellbezeichnung von z.B. "C2" soll jetzt der Zellnamen z.B. "Materialmenge" in der entsprechenden WENN Formel stehen. "Materialmenge" wurde im Beispiel dabei per Namensmanager für die ganze Spalte C manuell festgelegt. Genau so alle anderen
Spalten mit den passenden Begriffen.

Der gleiche Zellnamen gilt also in meinem Fall immer für eine ganze Spalte.



Lösung, die ich mal selbst überlegt habe:

Makro aufzeichnen durch

- Zeile 2 komplett markieren

- Suche und ersetzte in Formeln: "C2" durch Zellnamen "Materialmenge"

- Suche und ersetzte in Formeln: "X2" durch Zellnamen "Höchstbestand"

usw. bis ich alle Spalten habe.

- Zum Schluss die geänderten Formeln automatisch herunter ziehen bis zur letzten Zeile der Tabelle.



Eleganter wäre, wenn das Makro automatisch aus den manuell festgelegten Begriffen im Namensmanager gleich den passenden Ersetzungsbegriff für die Spalte heraus sucht und die Begriffe in den Formeln auf Knopfdruck mit dem dann besser lesbaren Namen aktualisiert.

Dann könnte ich die WENN-Formeln weiter einfach "normal" mit A2, B2... programmieren und zum Schluss auf Knopfdruck A2, B2...in lesbare Namen übersetzen.

Wenn ich mir das so überlege...das wäre dann überhaupt das aller-coolste!

Dein Mac hat ein Sandbox-Feature und nun kannst Du nicht mehr auf Pfade ausserhalb Deines Containers zugreifen.

Auf deutsch: Ende im Gelände, das geht nicht mehr.

https://www.rondebruin.nl/mac/mac034.htm

Andreas.

Hallo,

ein Makro sollte man zunächst testen - möglichst nicht mit den Originaldateien, oder zumindest vorher Sicherungskopien erstellen.

Die VBA-Lösung im angegebenen Artikel https://blog.bartlweb.net/2012/08/word-serienbrief-als-einzelne-dateien-speichern/
enthält keinen Befehl, Dateien zu löschen. Daher dürften weder das Makro, noch das Serienbrief-Hauptdokument, noch das Betriebssystem etwas mit dem Löschen zu tun haben. Das war ein Befehl, den du selbst unabhängig vom Makro ausgelöst hast.

Viele Grüße

Lisa

Es ist schwierig die Daten hochzuladen bzw Anonymisieren da es vertrauenswürdeige Daten sind.

Das ist nicht schwierig... aber vielleicht sollte ich da doch mal eine Anleitung schreiben:

Diese Datei herunterladen:

https://www.dropbox.com/s/rkfxuh85j5wyj9y/modAnonymize.bas?dl=1

Eine Kopie der Exceldatei erstellen und öffnen

Den VBA Editor öffnen

STRG-M drücken (oder Datei\Datei importieren...)

Die heruntergeladene Datei importieren

Den VBA Editor schließen

Die zu anonymisierenden Daten auswählen

Alt-F8 drücken

Das Makro Anonymize ausführen

Daten auswählen, Makro Anonymize ausführen ggf. wiederholen

Die Exceldatei speichern auf einen Online-Datei-Hoster wie www.dropbox.com hoch und den Download-Link hier posten.

Andreas.