Office: Höchster Wert aktualisieren und Wert täglich übernehmen

Hallo,

ich brauche wieder mal dringend Hilfe von euch Profis.

Ich habe eine Beispieldatei angehängt, in der ich zwei Probleme habe:

Tabelle "Depotübersicht":
In J32 soll der höchste Wert stehen, der jemals in J25 stand bzw.steht /
ist der neue Wert höher soll diese Zelle automatisch aktualisiert werden,
(ist er niedriger, soll der alte Wert bestehen bleiben)

Tabelle "PerformanceDiagramm"
Der Wert aus der Zelle J25 in der Tabelle "Depotübersicht" soll täglich in die Tabelle "PerformanceDiagramm" automatisch und fortlaufend eingetragen werden.

Ich hoffe ihr könnt mir helfen, da ich es nicht auf die Reihe bekomme. :-(
Ein megagroßes Dankeschön schon mal im Voraus.

vlg Karsten

 

Hallo!

Rechtsklicke den Tabellenreiter vom Blatt "Depotübersicht" und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("J25") > Range("J32") Then Range("J32") = Range("J25")
Sheets("PerformanceDiagramm").Columns(1).Find(Date).Offset(0, 1) = Range("J25")
End Sub

 

Hey Schatzi,

du bist genial. DAAAANKE !!!!

Sieht echt super aus. Werde es jetzt mal durchtesten.

Danke für deine Arbeit.

lg Karsten

 

Hallo,

ich bräuchte doch noch mal etwas Hilfe.
Der Code funktioniert schon ganz gut. Ich habe jetzt allerdings
die manuell eingetragenen Werte durch eine Formel ersetzt und
jetzt wird der Wert leider nicht mehr automatisch übenommen.
Wie kann ich das Problem lösen?

DANKE !!!!!!!!!!

lg Karsten

 

Hallo!

Eigentlich sollte es dem Code egal sein, auf welche Weise die Werte entstanden sind...

 

Ich versehe es leider auch nicht. Seit ich die Formel eingegeben habe, funktioniert die tägliche Übernahme in die Tabelle "Depotperformance" nicht mehr. Sobald ich aber die Formel lösche und den Wert manuell eintrage, wird der Wert wieder übernommen. Ich bin ratlos :-(

lg Karsten

 

Muss ich vielleicht irgendwelche Variablen anderst deklarieren ?
Ich habe leider viel zu wenig Ahnung von VBA.

 

Hallo!

Test es mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("J25") > Range("J32") Then Range("J32") = Range("J25")
Sheets("PerformanceDiagramm").Columns(1).Find(What:=Date, LookIn:=xlValues).Offset(0, 1) = Range("J25")
End Sub

 

Hallo Schatzi,

danke für deine Arbeit. Irgendwie haut es immer noch nicht hin.
Ich habe auch festgestellt, dass der Wert nur übernommen wird, wenn ich ihn neu eintrage oder anklicke. Ist irgendwie ganz komisch.

lg Karsten