Höchster Wert aktualisieren und Wert täglich übernehmen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

KarstenS
Newbie
Newbie

Anmeldedatum: 04.04.2008
Beiträge: 6

Verfasst am: 04.04.2008, 08:45

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. Sad

Ein megagroßes Dankeschön schon mal im Voraus.

vlg Karsten

Mappe1.xls

Beschreibung:

Download

Dateiname:

Mappe1.xls

Dateigröße:

39.5 KB

Heruntergeladen:

26 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5377

Verfasst am: 04.04.2008, 10:25

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

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

KarstenS
Newbie
Newbie

Anmeldedatum: 04.04.2008
Beiträge: 6

Verfasst am: 04.04.2008, 10:41

Hey Schatzi,

du bist genial. DAAAANKE !!!!

Sieht echt super aus. Werde es jetzt mal durchtesten.

Danke für deine Arbeit.

lg Karsten

KarstenS
Newbie
Newbie

Anmeldedatum: 04.04.2008
Beiträge: 6

Verfasst am: 20.04.2008, 12:07

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5377

Verfasst am: 21.04.2008, 01:41

Hallo!

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

KarstenS
Newbie
Newbie

Anmeldedatum: 04.04.2008
Beiträge: 6

Verfasst am: 21.04.2008, 09:01

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 Sad

lg Karsten

KarstenS
Newbie
Newbie

Anmeldedatum: 04.04.2008
Beiträge: 6

Verfasst am: 21.04.2008, 09:06

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5377

Verfasst am: 21.04.2008, 09:15

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

KarstenS
Newbie
Newbie

Anmeldedatum: 04.04.2008
Beiträge: 6

Verfasst am: 21.04.2008, 21:23

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Zellen Vergleichen und besthenden Wer...	FlashG	Microsoft Excel Hilfe	2	18.08.2008, 14:46
	Excel Blätter in Word übernehmen???	robi2207	Microsoft Word Hilfe	0	14.08.2008, 09:35
	Überschriften in Kopfzeile übernehmen	MiC	Microsoft Word Hilfe	0	13.08.2008, 16:11
	Worte aus anderen Blättern in Tabelle...	Christian001	Microsoft Excel Hilfe	5	11.08.2008, 18:40
	Werte aus einer anderen Tabelle übern...	Jim-Sonic	Microsoft Excel Hilfe	2	02.08.2008, 10:18

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de