Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF erstellen mittels Button

PDF erstellen mittels Button
01.10.2020 12:48:25
Erik
Hallo,
Ich habe eine Makro mit folgenden Code:
Option Explicit
Sub PDFDatei()
'Hochformat einstellen
Sheets("Tabelle1").PageSetup.Orientation = 1
'Format automatisch anpassen
Sheets("Tabelle1").PageSetup.Zoom = False
Sheets("Tabelle1").PageSetup.FitToPagesWide = 1
Sheets("Tabelle1").PageSetup.FitToPagesTall = 1
'Tabelle als PDF speichern
Sheets("Tabelle1").Range("A1:BD75").ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\Ordner\Desktop\PM-000.pdf", _
Openafterpublish:=True
End Sub
Wenn ich die Button klicke, wird ein PDF mit der bezeichnung PM-000 erstellt.
Mein Wunsch ist es, das PDF als die Summe der verbundenen Zellen bis zu O6-Q6 + R6-Z6 + AA6-AC6 zu speichern. Mit anderen Worten, es sollte in Form von PM-000-1234567-00 erstellt werden.
Ich hoffe kann mir jemand helfen.
VG

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

Betreff
Datum
Anwender
Anzeige
AW: PDF erstellen mittels Button
01.10.2020 14:01:26
Joachim
Nutze das & um die Dateibezeichnung zusammenzubauen.
Du musst vor und nach & aber händisch ein Leerzeichen eingeben, VBA fügt das nicht automatisch ein.
Oder ich hab Dich total falsch verstanden was Du willst.
Gruß
AW: PDF erstellen mittels Button
01.10.2020 14:36:54
Erik
Hallo Joachim,
wo muss ich genau die & zeichen einfügen. Kannst du mir eine beispiel zeigen.
VG
AW: PDF erstellen mittels Button
01.10.2020 14:56:09
Joachim
Kommt drauf an, was in welcher Zelle steht
So etwa:
PDFName=range("A1").value & range("B1").value & "-" & Range("C1").value
und dann ersetzt Du den Namen den Du in Deiner Anweisung der PDF gibst (der in Anführungszeichen steht) durch PDFName (ohne Anführungszeichen)
Gruß
Anzeige
AW: PDF erstellen mittels Button
01.10.2020 14:59:48
Raimuind
Hi
Wenn O6-Q6 + R6-Z6 + AA6-AC6 eine mathematische Rechnung ist:
Sub PDFDatei()
'Hochformat einstellen
Sheets("Tabelle1").PageSetup.Orientation = 1
'Format automatisch anpassen
Sheets("Tabelle1").PageSetup.Zoom = False
Sheets("Tabelle1").PageSetup.FitToPagesWide = 1
Sheets("Tabelle1").PageSetup.FitToPagesTall = 1
'Tabelle als PDF speichern
Sheets("Tabelle1").Range("A1:BD75").ExportAsFixedFormat xlTypePDF, _
Filename:="C:\Users\Ordner\Desktop\  " & "PM-000" & " - " & [O6] - [Q6 ] + [R6] - [Z6 ] + [AA6]  _
- [AC6 ] & " .pdf", _
Openafterpublish:=True
End Sub

Anzeige
AW: PDF erstellen mittels Button
01.10.2020 15:11:43
Erik
Hallo Raimuind,
Nein, es sind keine mathematische Rechnung.
Es ist eine Bearbeitungsnummer mit 3 verschiedenen Zahlenreihen.
ich möchte das geschpeicherte PDF mit der bezeichning "PM-000-1234567-00" erstellt wird.
VG
AW: PDF erstellen mittels Button
02.10.2020 09:05:35
Erik
Hallo,
Der folgende Code macht genau das was ich will, aber da die Zelle "O6" mit zwei Nullen beginnt, werden beim Speichern Nullen gelöscht. Kann mir einer helfen wie ich das ändern kann.
VG
Sub aktivesBlattToPdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "PM-" & Range("O6").Value & "-" & Range("R6").Value & "-" & Range(" _
AA6").Value & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Anzeige
AW: PDF erstellen mittels Button
02.10.2020 09:12:05
peterk
Hallo
Nimm Range("O6").Text
AW: PDF erstellen mittels Button
02.10.2020 12:25:49
Erik
Super. Vielen dank..

301 Forumthreads zu ähnlichen Themen

Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Anzeige
Button mit Filterfunktion erstellen! aber wie ?
Richi

Hallo Zusammen,
wie kann man im Excel ein Button erstellen, das wenn man drauf klickt, ein Bestimter Filter ausgeführt wird ?
06.02.2009 09:35:00
Thread-ID: 1047622
2 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Anzeige
Buttons in Druckvorschau per VBA umbenennen
Aljerter

ich benutze die Druckvorschau als Voranzeige einer Excel-Tabelle, die im Laufe eines VBA Programms in eine andere Tabelle kopiert werden soll.
Ich möcht deshalb die Buttons "Drucken" und "Schließen" vor der Anzeige der Druckvorschau per VBA umbenennen in
"Daten übernehmen" an Stelle "D...
12.04.2010 15:19:40
Thread-ID: 1151228
2 Beiträge
Makro mit Button starten in gleicher Mappe (Sheet)
chris

Hallo und guten morgen an alle,
könnt ihr mir bitte helfen `?
ich habe eine Datei.In dieser Datei gibt es Module und Formulare und zwei Sheets.
ich kopiere mit dem makro das Sheet in eine neue Mappe speichere und schliese diese.
In dem Sheet ist in der Quelldatei ein Makro.
...
21.06.2010 08:36:26
Thread-ID: 1163028
7 Beiträge
Optionsbutton LinkedCell mit VBA zuweisen
Peter.H

Hallo zusammen
die Art wie ich die LinkedCell zuweise funktioniert nicht...
Wie muss ich das richtig zuweisen?
Option Explicit
Const iCol_1 As Integer = 1 + 1 Sub Opt() Dim i As Integer With Tabelle1 For i = 2 To 10 .OLEObjects.Add(ClassType:="Forms.OptionButton.1", _ Left:=.Ce...
20.07.2010 23:23:13
Thread-ID: 1167978
3 Beiträge
Makro mit Button
Ralf

Hallo Excel - Experten,wie kann ich Makrosymbole (z.B. das Smiley) mit einem
bestimmten Makro hinterlegen, aber so dass das Makro
immer da ist.
Ich habe gerade in einer Excel Datei ein Makro geschrieben und
es einem Smiley zugeordnet. Wenn ich jetzt den Smiley button
drücke, öf...
30.04.2002 16:48:18
Thread-ID: 117521
3 Beiträge
Makro Messberichte erstellen mittels UsreForm
Alex

Hallo Excelexperten,
ich habe mir eine Exceldatei für die Übersicht aller Messdaten eines Bauteiles erstellt.
Die Eingabe der einzelnen Werte in die Übersicht ist kein Problem da dies direkt aus der Ausgabedatei der 3D-Messmaschine mittels CopyPast erledigen werden kann. Ab und an bzw....
08.10.2010 00:45:47
Thread-ID: 1181355
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
12
1
5
8
1
6
2
2
3
3
4
2
2
4
3
10
5
13
2
2
24
2
2
4