ergebnis periodisch umkopieren
16.02.2005 15:02:06
michaonline
ich hab folgendes problem:
ich lasse minütlich die summe von zelleninhalten bilden. dieses ergebnis schreibe ich in die variable "IST". ich muss nun aber immer noch den letzten wert weiterverarbeiten.
folgenden code hab ich bisjetzt:
Function IST_Erfassung() As Double
Dim Zelle As Range
Dim Bereich As Range
Dim IST As Double
Set Bereich = Range("D16:D31")
For Each Zelle In Bereich
If Zelle = "EIN" Then
IST = IST + Zelle.Offset(0, 4).Value
End If
Next Zelle
IST_Erfassung = IST 'Rückgabewert der Fkt; IST-Verbrauch zum Zeitpunkt t
Application.OnTime Now + TimeValue("00:01:00"), "IST_Erfassung"
End Function
beim nächsten ermitteln des IST-wertes soll der wert von "IST" auf "IST_alt" kopiert werden und der neue wert in IST gespeichert werden. usw.
hat jemand ne idee, ich verzweifel hier schon
micha