|
Hallo
so??
in ein Modul..
Sub PDF_ablegen()
On Error GoTo Fehler
Const APPNAME = "PDF_ablegen"
Dim TB1 As Worksheet, i As Integer
Dim ZE As Integer, LR As Integer
Dim Pfad As String, Datei As String, Ext As String
'*** Stammdaten Anfang
Set TB1 = Sheets("Tabelle1") 'aus bestimmtem Blatt
ZE = 7 'ab Zeile
Ext = ".pdf"
'*** Stammdaten Ende
With TB1
Pfad = .Range("B1") & IIf(Right(.Range("B1"), 1) = "\", "", "\")
Datei = .Range("B2")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
If Dir(Pfad & Datei & Ext) <> "" Then
For i = ZE To LR
FileCopy Pfad & Datei & Ext, Pfad & .Cells(i, 1) & "_" & .Cells(i, 2) & Ext
Next
Else
MsgBox "PDF / Verzeichnis nicht vorhanden"
End If
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
|