Ladelog als PDF für Abrechnung mit Arbeitgeber?

[mrinas]

Falls andere auch darüber gestoplert sind, die Energiemengen im Graphen zur Monatsauswertung passen bei mir so gar nicht: https://github.com/openWB/core/issues/663

[jannemann]

Vielleicht hilft das ja

viewtopic.php?f=10&t=6243

[Gero]

Hier mal der Link zum klicken: viewtopic.php?f=10&t=6243

[tripleeight]

Ist hier jemand schon mal weitergekommen?
Die Abrechnung muss ich monatlich beim Arbeitgeber einreichen und es wäre schön, wenn es relativ automatisiert geht.

Denkbar ist natürlich sich den Rahmen in Excel zu bauen und nach einem Import der CSV die Daten in den richtigen Bereich einzufügen. Geht, ist aber doch jedes mal manuelle Arbeit.

Das Ausdrucken der Webseite als PDF ist auch möglich, aber man ein paar Randdaten wären noch schöner. Zum Beispiel ist die Nennung des aktuellen Stromtarifs nicht verkehrt.

Die Variante mit dem Python Script habe ich auch gesehen, aber extra dafür sich da komplett einzuarbeiten und ggf. einen Raspi zu kaufen ist auch irgendwie unschön.

Aktuell sieht es damit für mich nach der manuellen Excel Bearbeitung aus. Aber ggf. hat ja jemand mal mit VBA was schickeres gebaut?!?

[PyvanPyro]

Hallo Zusammen,
ich habe mir eine Lösung über PowerQuery gebastelt die Großteils automatisiert funktioniert.

Das Prinzip funktioniert wie folgt:

Ich muss händisch jeden Monat die CSV Datei des Abrechnungsmonats herunterladen und in meinen "Hot Folder" ablegen.
Dort habe ich eine xlsm-Datei bei deren Start wird automatisch die CSV Datei eingelesen, Formatierungen (Datum, Währung) und überschüssige Spalten entfernt und auf dem jeweiligen Kalendermonat übertragen.

2.PNG (29.48 KiB) 40 mal betrachtet

1.PNG (21.05 KiB) 40 mal betrachtet

Im Kopfbereich werden händisch die Benutzerdaten Name , KFZ-Kennzeichen, Strompreis gehegt.
Da ich noch eine Aufwandsentschädigung für meine Private WB bekomme, steht der Einfachheit die Gesamtsumme im Kopf.

Per VBA Makro erstelle ich eine PDF, öffne Outlock und bereite Empfänger, Betreff und Inhalt der Mail per Standardinhalt vor.

Code: Alles auswählen

Sub ExportAndEmailActiveSheet()
    Dim strPath As String
    Dim strFileName As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' Pfadeinstellung anpassen (zum Desktop des aktuellen Benutzers)
    strPath = Environ("USERPROFILE") & "\Desktop\"
    
     ' Dateiname basierend auf dem Namen des aktiven Tabellenblatts
    strFileName = strPath & ActiveSheet.Name & ".pdf"
    
    ' Tabellenblatt als PDF exportieren
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' Outlook-Verbindung herstellen
    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' E-Mail-Einstellungen festlegen
    With outlookMail
        .To = "max.mustermann@geht.dich.nix.an.de" ' Hier die gewünschte E-Mail-Adresse eintragen
        .Subject = "Abrechnung WB Mustermann 2024 " & ActiveSheet.Name
        .Body = "Guten Tag xxx" & Chr(13) & _
                "anbei die Abrechnung der Wb vom letzten Monat." & Chr(13) & Chr(13) & _
                "Mit freundlichen Grüßen" & Chr(13)
        .Attachments.Add strFileName
        .Display ' Zum Anzeigen der E-Mail vor dem Senden
        ' .Send ' Zum automatischen Senden der E-Mail
    End With
    
    ' Aufräumen
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

Mit dieser Lösung bin ich für ein Script Kiddy ganz zufrieden.
Was noch besser wäre wenn ich den Download der CSV, anpassen der Spaltenbreite und Auslösung des VBA Scripts automatisiert bekäme.

Wenn ich mal Zeit finde versuche ich das mithilfe von Power Bi noch weiter auszuwerten, evtl. findet sich ja jemand der da schon einen Ansatz verfolgt.

Gruß Py