Danke für deine Hilfsbereitschaft
Hier mal mein Code:
Sub Depotverlauf()
Sheets("Depotverlauf").Activate
With Worksheets("Depotverlauf")
If .Cells(4, 8) <> "" Then
.Cells(.Rows.Count, 8).End(xlUp).Offset(1) = Date
Else
.Cells(4, 8) = Date
End If
End With
Dim lRowIn&
[E1].FormulaLocal = "=AGGREGAT(14;4;(I3:I100<>"""")*ZEILE(I3:I100);1)+1"
lRowIn = [E1].Value
[E1].ClearContents
Range("I" & lRowIn).Value = [Cell_Depotwert]
End Sub
Das Makro besteht aus 2 Teilen:
1) Gibt das jeweilige Datum (HEUTE-Funktion) in den Zellen H4-Hx aus. Hierbei werden die Zeilen forlaufend bei jedem Klick auf die Schaltfläche (liegt im Tabellenblatt "Wertpapiere" ausgegeben.
2) Parallel dazu werden ebenfals fortlaufend die Zellen I4-Ix mit einem Wert gefüllt. Dieser Wert entspringt einer Formel (steht in der Zelle "Cell_Depotwert", im Tabellenblatt "Depotverlauf"). Daher der etwas umständliche Code, da nur das Resultat und nicht die Formel selbst kopiert werden soll.
Das Makro funktioniert derzeit tadellos und wird im Blatt "Depotverlauf" ausgegeben, allerdings in "Wertpapiere" über eine Schaltfläche aktiviert.
LG Tobi
|