Thema Datum  Von Nutzer Rating
Antwort
10.07.2020 09:53:33 Einblatt
NotSolved
10.07.2020 13:57:35 UweD
NotSolved
14.07.2020 08:48:27 Einblatt
NotSolved
24.07.2020 08:18:37 Einblatt
NotSolved
24.07.2020 23:46:31 ralf_b
NotSolved
29.07.2020 13:22:43 Einblatt
NotSolved
Rot pdf erzeugen
 29.07.2020 13:54:58 Werner
NotSolved
04.08.2020 09:38:15 Einblatt
NotSolved
11.08.2020 14:32:19 Werner
NotSolved
11.08.2020 14:36:26 Einblatt
NotSolved
11.08.2020 15:14:54 Werner
Solved
12.08.2020 07:07:52 Einblatt
NotSolved
11.08.2020 07:14:44 Einblatt
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
29.07.2020 13:54:58		 Views:
856		 Rating:
     
Antwort:
  Ja
Thema:
pdf erzeugen

Hallo,

kann auch nicht, weil das alles ein ziemliches Durcheinander ist.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub PE_Pass_pdf_Click()
Dim Dateiname As String, Benutzer As String
Dim Nachname As String, Vorname As String, LW As String
 
'du Dim(ensionierst) Nachname und Vorname
'diese Variablen werden aber nirgendwo gefüllt
'und verwendet werden sie auch nirgendwo
 
'hier fehlte der Backslash am Ende
LW = "N:\UBO\AZE\"
Benutzer = "Nachname_Vorname"
 
'wozu das hier denn bitte?
'im weiteren Verlauf wird Filename überhaupt nicht benutzt
'und auch hier fehlt der Backslash nach AZ"
Filename = "N:\UBO\AZE\" & Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".")) & "pdf"
  
Dateiname = LW & Benutzer & "_PE-Pass.pdf"
'die Messagebox gibt dir Speicherpfat und Dateiname aus
'den du dir zusammengestellt hast und unter der die
'PDF dann gespeichert wird
'willst du die Datei tatsächlich so abspeichern?
MsgBox Dateiname
  
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Den Export als PDF habe ich mal auskommentiert. Lass den Code mal laufen. In der Messagebox wird dir ausgegeben, was du da als Speicherpfad und Dateinamen zusammengebaut hast.

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.07.2020 09:53:33 Einblatt
NotSolved
10.07.2020 13:57:35 UweD
NotSolved
14.07.2020 08:48:27 Einblatt
NotSolved
24.07.2020 08:18:37 Einblatt
NotSolved
24.07.2020 23:46:31 ralf_b
NotSolved
29.07.2020 13:22:43 Einblatt
NotSolved
Rot pdf erzeugen
 29.07.2020 13:54:58 Werner
NotSolved
04.08.2020 09:38:15 Einblatt
NotSolved
11.08.2020 14:32:19 Werner
NotSolved
11.08.2020 14:36:26 Einblatt
NotSolved
11.08.2020 15:14:54 Werner
Solved
12.08.2020 07:07:52 Einblatt
NotSolved
11.08.2020 07:14:44 Einblatt
NotSolved