Thema Datum  Von Nutzer Rating
Antwort
15.02.2014 14:34:48 Soeren
NotSolved
Blau Pfad aus zwei Tabellen erstellen und speichern
 16.02.2014 10:38:45 Gast75911
NotSolved

Ansicht des Beitrags:
Von:
Gast75911		 Datum:
16.02.2014 10:38:45		 Views:
648		 Rating:
     
Antwort:
  Ja
Thema:
Pfad aus zwei Tabellen erstellen und speichern		 
Option Explicit

Sub PDF_erstellen_und_speichern()
'********************************************
Dim xlSRange      As Range  'wozu ???
Dim strZielPfad   As String
Dim strFileName   As String
Dim c As Range
Dim d As Range              'ditto wozu ???
'********************************************
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  ' OK - VBA findet was wenn Zellen identisch
'************************************************************************
Rem jetzt haut lt. diesem Code das VBA die Datei mit Namen "Intern 00xx"
Rem und zwar in den Excel Standard-Speicherort
Rem Einstellung unter Menü/Datei/Optionen/Speichern
Rem steht da nix, oder ein unbekannter Eintrag - dann
Rem wird eben beim User/Dokumente abgelegt
'************************************************************************
Worksheets("Auftrag").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="Intern" & " " & Format(c.Row, "0000"), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
'************************************************************************
Rem OK - der Kessel ist geflickt

strZielPfad = "\\psf\Home\Desktop"  'und was soll das ?
 
strFileName = Worksheets("Projektübersicht").Cells(c.Row, 3) 'oder was das ?
 
MsgBox "Erfolgreich erstellt und gespeichert" 'eh klar - und wo siehe oben !
'************************************************************************

Else
  MsgBox "Kein Speichern möglich"
End If

End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.02.2014 14:34:48 Soeren
NotSolved
Blau Pfad aus zwei Tabellen erstellen und speichern
 16.02.2014 10:38:45 Gast75911
NotSolved