Wert einer bestimmten Zelle merken



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Wert einer bestimmten Zelle merken
von: Holger Meinert
Geschrieben am: 17.05.2002 - 08:50:56

Wie kann ich erreichen, daß sich Excel den Max-Wert einer bestimmten Zelle merkt? Und diesen in eine andere Zelle schreibt.
Der Ursprungswert ändert sich täglich.
Vielen Dank für die Hilfe !!

nach oben   nach unten

Re: Wert einer bestimmten Zelle merken
von: Andreas
Geschrieben am: 17.05.2002 - 09:44:08

Hallo Holger,

also als Code zu der Tabelle (z.B. Tabelle1) fügst Du folgendes ein:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address(False, False) = "A1" Then _
        If IsNumeric(.Value) And .Value > Range("B1").Value Then _
            Range("B1").Value = Target.Value
End With
End Sub

Also A1 ist die Zelle, in der sich der Zahlenwert ändert. In B1 wird der Maximumwert "gespeichert".
Viel Spaß,
Andreas

nach oben   nach unten

Re: Wert einer bestimmten Zelle merken
von: Holger Meinert
Geschrieben am: 17.05.2002 - 10:24:27

Danke für das Makro !
Hilfe bei einfügen des Codes in dem Tabellenblatt > Wie ?

nach oben   nach unten

Re: Wert einer bestimmten Zelle merken
von: Andreas
Geschrieben am: 17.05.2002 - 10:39:04

Hallo Holger,

1. Möglichkeit aus dem Excel-Fenster heraus so:
Unten im Blattregister, die gewünschte Tabelle rechtsklicken und dort auf Code anzeigen

oder 2. im VB-Editor direkt (Alt-F11)
dort im Explorer-Fenster (Links oben) die Datei heraussuchen und dort unter MS-Excel-Objekte, die entsprechende Tabelle doppelklicken!

In dem dann auftuenden Codefenster, fügst Du diesen Code ein!
Viel Spaß,
Andreas

nach oben   nach unten

Re: Wert einer bestimmten Zelle merken
von: Holger Meinert
Geschrieben am: 17.05.2002 - 11:32:56

Danke für die Beschreibung,habe es selbst hinbekommen,trotzdem Danke! Es funktioniert sehr gut.
Ein weiteres Problem zu diesem Makro:
Zusätzlich zu dem veränderlichen Wert stehen in den Zellen A2 und A3 das dazugehörige Datum und die Uhrzeit diese Zellen müßten ebenfalls gemerkt werden und in die Zellen B2 und B3 übernommen werden.
Vielen Dank für die Hilfe !!
nach oben   nach unten

Re: Wert einer bestimmten Zelle merken
von: Andreas
Geschrieben am: 17.05.2002 - 12:33:43

Hallo Holger,

einfach in den Code schauen und für die anderen beiden Zellen anwenden. Der Syntax wäre der gleiche... :-)
Hier die Lösung:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address(False, False) = "A1" Then
    If IsNumeric(.Value) And .Value > Range("B1").Value Then
            Range("B1").Value = .Value
            Range("B2").Value = .Offset(1, 0).Value
            Range("B3").Value = .Offset(2, 0).Value
    End If
    End If
End With
End Sub

Viel Spaß,
Andreas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wert einer bestimmten Zelle merken"