Wachbuch, 6 Seiten-31 Tage

[elagabalu]

Ich habe den Code kopiert, wenn ich jetzt das Datum eingebe erscheint "kein gültiges Datum"!? Was muss ich machen um die Datei zu speichern/den Ablauf zu starten. Kommt auf`n Tag nicht drauf an. Morgen mit meinem Enkel, Varusschlacht in Kalkriese....good night sleep tight

[Elex]

Hi

In der Erwartung das Schlachtfeld leben verlassen zu haben.

Ich vermute mal dein Ordnerpfad ist nicht korrekt. (Ordner muss bereits existieren)
Verwende mal diesen Code. Mögliche Fehler werden besser Verwaltet.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim StDatum As String, Monatsende As Long, i As Long, PfadGesamt As String, PfadOrdner As String

Cancel = True
On Error GoTo Fehler

StDatum = InputBox("Start Datum eingeben!   TT.MM.JJJJ")

If IsDate(StDatum) And Format(StDatum, "DD.MM.YYYY") = StDatum Then
   Monatsende = DateSerial(Year(StDatum), Month(StDatum) + 1, 0) - DateValue(StDatum)
Else
   MsgBox "Kein gültiges Datum!"
   Exit Sub
End If

'Ordner in dem die pdf gespeichert werden soll
PfadOrdner = "C:\Users\Nutzer\Desktop\Druck Wachbuch\"

'pdf Datein erstellen aus Seite 1 mit Datum x mal
For i = 0 To Monatsende
    Range("L1").Value = Format(CDate(StDatum) + i, "DDDD,   DD.MM.YYYY")
    PfadGesamt = PfadOrdner & "Seite " & i * 6 + 1 & ".1.pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    PfadGesamt, Quality:=xlQualityStandard _
    , IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
      OpenAfterPublish:=False
Next i

'pdf Datein Seite 2 - 6
For i = 2 To 6
    PfadGesamt = PfadOrdner & "Seite XX. " & i & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    PfadGesamt, Quality:=xlQualityStandard _
    , IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=i, To:=i, _
      OpenAfterPublish:=False
Next i

Exit Sub
Fehler:
If 1004 = Err.Number Then MsgBox "Ordner nicht gefunden"
If 6 = Err.Number Then MsgBox "Kein gültiges Datum"
End Sub

Gruß Elex

[elagabalu]

Puhh, wir konnten zwischen den Römern und Germanen gerade eben noch durchsickern bevor die Schlacht begann, es war fürchterlich! Aber nach dem Spielplatz und einem Weißbier konnten wir unbehelligt den Heimweg antreten. Ich habe "Nutzer" durch meinen Namen ersetzt und er hat PDF Dateien erzeugt, bin heute aber durch und werde mich morgen damit beschäftigen. (warum hatte ich die Fehlermeldung"unzulässiges Datum) Thx have fun und einen schönen freien Montag

[elagabalu]

Hallo @Elex, ich habe mir den Code erstmal ausgedruckt; habe ja nun schon 3 Ausfertigungen zum Rumspielen, habe auch schon angefangen mir Tutorials  anzuschauen. Kann man anstatt -PDF- einfach -Word- setzen, und er speichert in Word? Ansonsten vielen Dank für die Hilfe.

[Elex]

Hi

glaube nicht.
evtl. neuere Excel die das Können.

Gruß

[schauan]

Hallöchen,

wenn Du Speichern Unter nimmst, kannst Du alle verfügbaren Formate anschauen.
Wenn Du die Excel-Datei mit den 180 Blättern als pdf speicherst dann kannst Du die doch auch in Word öffnen, als docx abspeichern, bearbeiten und …