AW: automatisch bei Monatswechsel neue Monat
10.02.2021 11:51:46
Marcel
Hallo und danke für die schnellen Antworten.
Ich versuche es mal etwas genauer zu beschreiben.
Ich möchte für meine Rechnungen und Aufträge alles soweit es geht automatisieren.
Noch habe ich "Aufträge 2021" (Blatt1), ein Arbeitsblatt2 "Eingabe" in dem alle Daten eingetragen werden und "Rechnung" (Blatt3) übernimmt die eingtragenen werde aus Blatt2 per Formeln. Das soll später noch getrennt werden, aber das bekomme ich schon hin.
Auf Blatt2 ist eine Schaltfläche die folgendes auslöst:
1. Blatt3 "Rechnung" wird mit Abfragen in eine bestimmte Datei als PDF gespeichert.
2. die eingetragenen Werte aus Blatt2 "Eingabe" werden in Blatt1 "Aufträge 2021" in bestimmte Zellen eingetragen. Dabei wird Spalte C "Aufträge 2021" nach dem letzten Eintrag abgefragt. In Spalte C befinden sich die Tage an dem der Auftrag ausgeführt wurde, eingetragen in "Eingabe".
Ich hoffe, dass war bis hierhin verständlich.
Die Aufträge stehen jetzt alle untereinander und der Neue immer als letztes. Jetzt soll das ganze übersichtlicher werden und die Monate getrennt dargestellt werden. Also mit Abstand, ob zwei oder sechs ist erstmal egal.
hier mal der Code:
Sub rechnung_print_pdf()
With Selection
Ja = MsgBox("Eingaben übernehmen und als PDF speichern?", vbYesNo)
If Ja = 6 Then
If Dir("D:\XXX\Rechnungen\Rechnungen 2021\" & Range("Rechnung!Z20") & ".pdf") = "" Then
ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\XXX\Rechnungen\Rechnungen 2021\" & Range("Rechnung!Z20") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
If Range("Eingabe!O18") = "Rechnung" Then
MsgBox "Rechnung erzeugt: " & Range("Rechnung!Z20")
Else
MsgBox "Gutschrift erzeugt: " & Range("Rechnung!Z20")
End If
Worksheets("Aufträge 2021").Unprotect Password:="1234"
Dim letzte As Long
With Worksheets("Aufträge 2021")
letzte = Application.Max(.Cells(Rows.Count, 3).End(xlUp).Row + 1)
.Cells(letzte, 3) = Range("Eingabe!J24") 'Auftrag am
.Cells(letzte, 4) = Range("Eingabe!J28") 'Von
.Cells(letzte, 5) = Range("Eingabe!J30") 'Nach
.Cells(letzte, 6) = Range("Eingabe!O30") 'Entfernung
.Cells(letzte, 7) = Range("Eingabe!O34") 'Gewicht
.Cells(letzte, 8) = Range("Eingabe!J4") 'Auftraggeber
.Cells(letzte, 9) = Range("Eingabe!J44") 'Preis
.Cells(letzte, 11) = Range("Eingabe!J48") 'Zahlungsziehl
.Cells(letzte, 12) = Range("Rechnung!Z19") 'Rechnungs-Datum
.Hyperlinks.Add Anchor:=Worksheets("Aufträge 2021").Cells(letzte, 13), Address:= _
"D:\xxx\Rechnungen\Rechnungen 2021\" & Range("Rechnung!Z20") & ".pdf"
.Cells(letzte, 13) = Range("Rechnung!Z20") 'Rechnungs-Nr.
.Cells(letzte, 16) = Range("Eingabe!J36") 'Bemerkung
End With