Thema Datum  Von Nutzer Rating
Antwort
15.03.2017 13:51:55 Andrej
NotSolved
15.03.2017 13:55:35 SJ
NotSolved
15.03.2017 14:02:41 Andrej
NotSolved
15.03.2017 14:04:16 Andrej
NotSolved
15.03.2017 14:07:20 SJ
NotSolved
15.03.2017 14:10:50 Andrej
NotSolved
15.03.2017 14:15:56 SJ
NotSolved
15.03.2017 14:23:04 Andrej
NotSolved
15.03.2017 14:41:19 Andrej
NotSolved
15.03.2017 14:44:41 SJ
NotSolved
Rot Datum umwandeln
15.03.2017 14:47:20 Andrej
NotSolved
15.03.2017 14:49:10 SJ
Solved
15.03.2017 14:53:17 Andrej
NotSolved

Ansicht des Beitrags:
Von:
Andrej
Datum:
15.03.2017 14:47:20
Views:
647
Rating: Antwort:
  Ja
Thema:
Datum umwandeln

Hoffe du blickst da durch, sind mehrer Variablen.

 

 

Sub Aktueller_Pfad() 'In eine Zelle wird der aktuelle Pfad der Excel-Datei geschrieben
Range("T28") = ActiveWorkbook.Path
Range("T29").Value = Range("B15").Value                     'das Datum 15.03.2017 wird übernommen und Benutzerdefiniert formatiert
End Sub

Sub PDF_Freigabe_Heisskanal()
Dim Pfad As String
Dim Pfad_Ueberordner As String
Dim Index As String
Dim Datum As String
Pfad = Range("B5").Value
Pfad_Ueberordner = Range("T28").Value
Index = Range("B6").Value
Datum = Range("T29").Value

    Sheets("Freigabe Heisskanal").Select
    ChDir _
        "" & Pfad_Ueberordner & "\" & Pfad & "_Datenaustausch\Kunde\Ausgang"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "" & Pfad_Ueberordner & "\" & Pfad & "_Datenaustausch\Kunde\Ausgang\Freigabedokument_" & Pfad & "_" & Datum & "" & Index & "" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Sheets("Eingabemaske").Select
    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.03.2017 13:51:55 Andrej
NotSolved
15.03.2017 13:55:35 SJ
NotSolved
15.03.2017 14:02:41 Andrej
NotSolved
15.03.2017 14:04:16 Andrej
NotSolved
15.03.2017 14:07:20 SJ
NotSolved
15.03.2017 14:10:50 Andrej
NotSolved
15.03.2017 14:15:56 SJ
NotSolved
15.03.2017 14:23:04 Andrej
NotSolved
15.03.2017 14:41:19 Andrej
NotSolved
15.03.2017 14:44:41 SJ
NotSolved
Rot Datum umwandeln
15.03.2017 14:47:20 Andrej
NotSolved
15.03.2017 14:49:10 SJ
Solved
15.03.2017 14:53:17 Andrej
NotSolved