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:
725
Rating: Antwort:
  Ja
Thema:
Pfad aus zwei Tabellen erstellen und speichern
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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