Thema Datum  Von Nutzer Rating
Antwort
29.10.2024 13:36:31 Sabi
NotSolved
29.10.2024 13:50:20 Gast84226
NotSolved
Rot Makros und Netzwerklaufwerke...
29.10.2024 13:59:44 Sabi
NotSolved
29.10.2024 16:36:29 Gast7094
NotSolved
29.10.2024 16:47:33 Gast47626
NotSolved
30.10.2024 08:00:38 Sabi
NotSolved
31.10.2024 08:11:21 Sabi
NotSolved
31.10.2024 11:02:31 Alwin Weisangler
NotSolved
31.10.2024 12:57:24 Sabi
NotSolved

Ansicht des Beitrags:
Von:
Sabi
Datum:
29.10.2024 13:59:44
Views:
60
Rating: Antwort:
  Ja
Thema:
Makros und Netzwerklaufwerke...

Sorry Sorry... dann erkläre ich es nochmals genauer:

1. Eine Excel (xlsm) Datei mit dem Makro "PDF erstellen" liegt auf dem lokalen Laufwerk zb.: C:\

ich öffne dann die Datei, führe das Makro "PDF erstellen" aus und es wird aus dem Excel in dem selben Ordner wo die Excel Datei liegt eine PDF erstellt (und zusätzlich gleich geöffnet.)

Soweit alles gut.

Nun das ganze über ein Netzlaufwerk:

2. Die Excel Datei liegt auf einem Netzlaufwerk zb.: N:\

ich öffne dann die Datei, führe das Makro "PDF erstellen" aus und es wird aus dem Excel eine PDF erstellt, jedoch nicht im selben Ordner auf dem Netzlaufwerk N:\ sondern lokal unter C:\Benutzer\Dokumente...

Ich würde aber gerne, dass diese PDF Datei, wie in Schritt 1 auf dem Netzlaufwerk im selben Ordner wo die Datei liegt gespeichert wird.

danke LG

Hier derCode dazu:

Sub pdfErstellen()

    Dim DieDatei As Boolean
   
 If MsgBox("ACHTUNG: Vorhandende Datei kann überschrieben werden!!!" & vbNewLine & "Weiter ?", vbYesNo) = vbYes Then
   
    DieDatei = IstDateiOffen(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf")

    If DieDatei = True Then
        MsgBox "Datei ist bereits geöffnet, Bitte vorher schließen!"
    Else
        
        ChDir ActiveWorkbook.Path
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5), Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
   
    End If
    
 Else
MsgBox "Vorgang abgebrochen"
End If

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
29.10.2024 13:36:31 Sabi
NotSolved
29.10.2024 13:50:20 Gast84226
NotSolved
Rot Makros und Netzwerklaufwerke...
29.10.2024 13:59:44 Sabi
NotSolved
29.10.2024 16:36:29 Gast7094
NotSolved
29.10.2024 16:47:33 Gast47626
NotSolved
30.10.2024 08:00:38 Sabi
NotSolved
31.10.2024 08:11:21 Sabi
NotSolved
31.10.2024 11:02:31 Alwin Weisangler
NotSolved
31.10.2024 12:57:24 Sabi
NotSolved