Hallo Fachleute,
ich habe folgendes Problem:
Mein Makro funktioniert genauso, wie ich es brauche, bis auf die Tatsache, dass der Dateiname, den ich ebenfalls automazisch erstellen lasse. Der Inhalt des Dokumentes ist immer eine Nr. zurück zum Filenamen.
Beispiel:
Ich möchte eine Datei mit dem Namen: 4955-Text-201701-1400002.pdf erzeugen. 1400002 wird aus einer Reihe kopiert und löst die Erstellung eines Reports im 1.Tabellenblatt aus. Die Datei die dann erzeugt wird, hat jedoch den Namen: 4955-Text-201701-1400001.pdf mit dem Inhalt/ Report 1400002 an.
Wo habe ich meinen Fehler gemacht?
Hier der Makro:
Sub Macro2()
'
' Macro2 Macro
' copy customer-ID & pdf-safe
'
'
Dim i As Long
Dim fileName As String
Dim customerID As String
Dim lAnzahl As String
lAnzahl = InputBox("Wie oft soll das Makro laufen ?", , 3)
MsgBox "Erstellung Sell-Out-PDF Reports für 4903. Laufzeit: ca. 60 Minuten/ 1000 *.pdf"
For i = 1 To lAnzahl
Sheets("pdf-maker").Select
fileName = Range("F19")
'Range("B202").Select
customerID = Cells(i, 2)
'Application.CutCopyMode = False
'Selection.Copy
Sheets("Sell-Out Datei").Select
Range("F5") = customerID
'MsgBox fileName
speichern_unter (fileName)
Next i
End Sub
Sub speichern_unter(f As String)
'MsgBox f
'Sheets("Sell-Out Datei").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
ThisWorkbook.Path & "\" & f & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Herzlichen Dank