vielen Dank ersteinmal für das tolle Forum und die vielen Helferlein, die hier wirklich tolle Hilfe leisten. Durch die gute Suchfunktion und die Vielzahl an Fragen anderer User und die Untersützung der Helferlein konnte ich als Besucher mir bisher "alleine" weiterhelfen trotz nahzeu Null-VBA-Kenntnissen - Vielen Dank!!
Nun komme ich leider seit ein paar Tagen nicht so richtig weiter und hoffe auf eure Hilfe.
Beim Abspeichern, soll der aktuelle IST-Zustand "Anzahl der offene Punkte" zum heutigen Datum gespeichert werden.
In Tabelle1 steht in Zelle A1 "Summe der offenen Punkte".
In Tabelle2 soll in Spalte B2, das aktuelle Datum fortlaufen (Nächste freie Zeile) abgespeichert werden und direkt daneben in Spalte C2, die Summe der offenen Punkte aus Tabelle1!A1 gelistet werden.
Das bekomme ich mit dem unteren Code hin :)
Allerdings würde ich gerne den Code so umändern, dass Abgefragt wird ob heute schon einmal gespeichert worden ist, wenn ja soll in der gleichen Zeile jedoch der Wert in Spalte C aktualisiert werden. Wenn nein, dann wie gehabt in der nächste freien Zeile Datum + Wert.
Wie bekomme ich diese Änderung hin?
Vielen Dank vorab für eure Hilfe.
Code unten
Datei unter https://www.herber.de/bbs/user/121779.xlsm
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Dim letzte As Long
With Worksheets("Tabelle2") 'Blattname anpassen
letzte = Application.Max(2, .Cells(Rows.Count, 2).End(xlUp).Row + 1)
.Cells(letzte, 2) = Date
.Cells(letzte, 3) = Sheets("Tabelle1").Cells(1, 1)
.Cells(letzte, 4).Select
End With
End Sub