ich beginne erst grad damit, mich in das programm einzuarbeiten. mein problem:
ich möchte gerne in einer zelle das datum automatisch speichern, an dem die nachbarzelle geändert oder zum ersten mal beschrieben worden ist. ich finde keine funktion dazu.
meine idee nun: in die zelle kommt
wenn([zelle links nicht leer];heute();"")
in die nächste nachbarzelle kommt ein in vba geschriebene funktion:
wenn([datumszelle nicht leer];infestwert();"")
so. nun hab ich also eine funktion "infestwert()" geschrieben, die als ergebnis 1 liefert und nebenbei die inhalte (!) der (datums-) - zelle in eine andere kopiert. der code:
--------------------------------------------------------
Function infestwertrechts()
ActiveCell.Offset(0, -2).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd mm yy"
ActiveCell.Offset(0, 1).Range("A1").Select
infestwertrechts = 1
End Function
-----------------------------------------------------
so. der witz ist nun: im einzelschrittmodus funktioniert das, doch bei der eingabe nicht (der wert 1 wird zurückgegeben, die zelleninhalte aber nicht kopiert. was mach ich nur falsch?
ähem - hab ich mich verständlich ausgedrückt? *indierundeschau* ich könnte es auch nochmal erklären, was ich will... *g*
vielen dank allen helfern!
kalli