pdf-Druck in einen Ordner mit einem bestimmten Nam

Option Explicit Sub CreatePdfDocuments() Dim a As Worksheet, b As Worksheet, c As Range Set a = Sheets("Makro_Hilfe") Set b = Sheets("BB Berater") For Each c In a.Range("A11:A" & a.Cells(Rows.Count, 1).End(xlUp).Row) b.Range("K3").Value = c.Value 'Beraterauswahl b.ExportAsFixedFormat xlTypePDF, c.Value & ".pdf" Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sandro,
Modul Modul1

Option Explicit 
 
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long 
 
Sub CreatePdfDocuments() 
  Dim a As Worksheet, b As Worksheet, c As Range 
  Dim strPath As String 
   
  Set a = Sheets("Makro_Hilfe") 
  Set b = Sheets("BB Berater") 
   
  strPath = b.Range("BQ2").Value 
   
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\" 
   
  If MakeSureDirectoryPathExists(strPath) <> 0 Then 
    For Each c In a.Range("A11:A" & a.Cells(Rows.Count, 1).End(xlUp).Row) 
      b.Range("K3").Value = c.Value 'Beraterauswahl 
      b.ExportAsFixedFormat xlTypePDF, strPath & c.Value & ".pdf" 
    Next 
  Else 
    MsgBox "Das Verzeichnis '" & strPath & "' konnte nicht erstellt werden!", vbExclamation 
  End If 
 
Set a = Nothing 
Set b = Nothing 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Hallo Sepp,
vielen Dank für die Hilfe. Ich denk ich habe ein Problem Wechsel 32 bit vs. 64 bit-Version. Er bringt mir einen Fehler bei
If MakeSureDirectoryPathExists(strPath) 0 Then
und zwar genau bei MakeSureDirectoryPathExists. Dort kommt dann der Hinweis Sub oder Function nicht definiert.
Ich hab mir aus dem Netz schon folgendes gezogen, hilft aber dem Problem an o.g. Stelle nicht...
Option Explicit
#If Win64 Then
Private Declare PtrSafe Function apiCreateFullPath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long
#Else
Private Declare Function apiCreateFullPath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" _
(ByVal lpPath As String) As Long
#End If
Vielen Dank!!

strPath = "C:\DeinVerzeichnis\" & b.Range("BQ2").Value 'oder strPath = ThisWorkbook.Path & "\" & b.Range("BQ2").Value VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub CreatePdfDocuments() Dim a As Worksheet, b As Worksheet, c As Range Dim strPath As String Set a = Sheets("Makro_Hilfe") Set b = Sheets("BB Berater") strPath = ThisWorkbook.Path & "\" 'oder was auch immer! For Each c In a.Range("A11:A" & a.Cells(Rows.Count, 1).End(xlUp).Row) b.Range("K3").Value = c.Value 'Beraterauswahl If MakeSureDirectoryPathExists(strPath & b.Range("BQ2") & "\") <> 0 Then b.ExportAsFixedFormat xlTypePDF, strPath & b.Range("BQ2") & "\" & c.Value & ".pdf" End If Next Set a = Nothing Set b = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

pdf-Druck in einen Ordner mit einem bestimmten Nam

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

pdf-Druck in einen Ordner mit einem bestimmten Nam

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread