MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 14.09.2017, 11:17   #1
Zodiaxx
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Anfänger braucht Hilfe

Hallo,

ich bin ein totaler Anfänger, hab mich aber mal daran versucht und das funktioniert soweit auch ganz gut

Sub aktivesBlattToPdf2()
ChDir "E:Backup"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False


End Sub


Ich würde das aber gerne an 2 Orten speichern, z.B. C:Speicher und E:Backup und das alles mit einem Knopfdruck.
Alle versuche bisher sind kläglich gescheitert und ich hab einfach keine Idee mehr Weiß einer wie das klappen könnte ?

Vielen Dank im vorraus
LG
Zodiaxx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 11:32   #2
silcono
Neuer Benutzer
Neuer Benutzer
Standard

Einfach den Ablauf nochmals laufen lassen
Code:

Sub aktivesBlattToPdf2()
 ChDir "E:Backup"
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False

 ChDir "C:Speicher"
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False

 End Sub
silcono ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 11:57   #3
Zodiaxx
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Er speichert das immer noch nur an einer Stelle ab

Hab nur der Speicherreihenfolge angepasst ...

Sub aktivesBlattToPdf2()

ChDir "D:Speicher"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

ChDir "E:Backup"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False


End Sub
Zodiaxx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 13:00   #4
silcono
Neuer Benutzer
Neuer Benutzer
Standard

Setze mal bei Filename den kompletten Pfad noch vorne dran, bei beiden Abfolgen. Vllt klappt's.
silcono ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 13:14   #5
Zodiaxx
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Wie meinst du das ?
Zodiaxx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 13:19   #6
silcono
Neuer Benutzer
Neuer Benutzer
Standard

Code:

Sub aktivesBlattToPdf2()
 ChDir "E:Backup"
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "E:Backup" & Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False

 ChDir "C:Speicher"
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 "C:Speicher" & Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
 False

 End Sub
Probiers so
silcono ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.09.2017, 08:03   #7
Zodiaxx
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

mmmmh geht immer noch nicht
Zodiaxx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.09.2017, 09:01   #8
Luschi
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Zodiaxx,

bei mir funktioniert das so:
Code:

Sub aktivesBlattToPdf2()
    Dim sPfad As String
    
    sPfad = "E:\Backup\"
    *prüfen, ob Pfad existiert!
    If Dir(sPfad, vbDirectory) <> "" Then
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          sPfad & Range("C4").Value & Format(Date, "YYYYMMDD") & ".pdf", _
          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
          IgnorePrintAreas:=False, OpenAfterPublish:=False
    Else
       MsgBox "Der Pfad '" & sPfad & "' existiert nicht!", 16 + vbSystemModal, _
          "F e h l e r..."
       Exit Sub
    End If

End Sub
Gruß von Luschi
aus klein-Paris
Luschi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.09.2017, 09:23   #9
Zodiaxx
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Bei mir kommt eine Fehlermeldung Syntaxfehler und anschließend leuchtet "Sub aktivesBlattToPdf2()" gelb !
Zodiaxx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.09.2017, 09:26   #10
Hajo_Zi
MOF Guru
MOF Guru
Standard

kommentiere diese Zeile aus
*prüfen, ob Pfad existiert!

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:58 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.