Hallo liebe Leute,
ich habe jetzt mal ne beispieldatei erstellt......
ich möchte das die tabelle auftrag als pdf abgespeichert wird, soweit noch einfach....
in b2 steht eine interne auftragsnummer....die soll das makro finden und damit in die tabelle projektübersicht in spalte a genau nach dieser nummer suchen und aus den werten dieser spalte den pfad zum richtigen abspeichern erstellen. die pdf soll nämlich in dem vorher automatisch angelegten kundenordner abgelegt werden....
momenten findet das makro ständig die zahl 1...auch wenn sie nirgends steht und meldet auch erfolgreich gespeichert...aber ich weiss nicht wohin.....
ich hab keine ahnung wie ich das lösen soll......
von euch jemand eine idee....???
der soeren
Sub PDF_erstellen_und_speichern()
Dim xlSRange As Range
Dim strZielPfad As String
Dim strFileName As String
Dim c As Range
Dim d As Range
With Worksheets("Projektübersicht").Columns(1)
Set c = .Find(What:=Worksheets("Auftrag").Cells(2, 2), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
MsgBox "nummer gefunden" & c.Row
Worksheets("Auftrag").ExportAsFixedFormat Type:=xlTypePDF, Filename:="Intern" & " " & Format(c.Row, "0000"), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
strZielPfad = "\\psf\Home\Desktop"
strFileName = Worksheets("Projektübersicht").Cells(c.Row, 3)
MsgBox "Erfolgreich erstellt und gespeichert"
Else
MsgBox "Kein Speichern möglich"
End If
End With
End Sub
|