Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

PDF erstellen mittels Button

Betrifft: PDF erstellen mittels Button von: Erik
Geschrieben am: 01.10.2020 12:48:25

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

Betrifft: AW: PDF erstellen mittels Button
von: Joachim Lewandowski
Geschrieben am: 01.10.2020 14:01:26

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ß

Betrifft: AW: PDF erstellen mittels Button
von: Erik
Geschrieben am: 01.10.2020 14:36:54

Hallo Joachim,

wo muss ich genau die & zeichen einfügen. Kannst du mir eine beispiel zeigen.

VG

Betrifft: AW: PDF erstellen mittels Button
von: Joachim Lewandowski
Geschrieben am: 01.10.2020 14:56:09

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ß

Betrifft: AW: PDF erstellen mittels Button
von: Raimuind
Geschrieben am: 01.10.2020 14:59:48

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


Betrifft: AW: PDF erstellen mittels Button
von: Erik
Geschrieben am: 01.10.2020 15:11:43

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

Betrifft: AW: PDF erstellen mittels Button
von: Erik
Geschrieben am: 02.10.2020 09:05:35

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


Betrifft: AW: PDF erstellen mittels Button
von: peterk
Geschrieben am: 02.10.2020 09:12:05

Hallo

Nimm Range("O6").Text

Betrifft: AW: PDF erstellen mittels Button
von: Erik
Geschrieben am: 02.10.2020 12:25:49

Super. Vielen dank..