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