vba97: in festwert kopieren

Computer: Software & Programmierung Office Software
1

hallo ihr helfer,

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

2

lösung
ein sehr netter mensch hat mir eine lösung gegeben - falls es wen interessiert:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Cells(Target.Row, 2) = Now()
End If
End Sub

so. und inzwischen hab sogar ich gesehen, dass sich meine probs von excel in vba verlagern, und siehe da - da bin ich hier plötzlich im falaschen forum.

*lächel*

kalli

3

Hi kalli,

so. und inzwischen hab sogar ich gesehen, dass sich meine
probs von excel in vba verlagern, und siehe da - da bin ich
hier plötzlich im falaschen forum.

Nöö! Mit VBA-Problemen bist Du genau richtig hier. VBA ist nämlich die Makrosprache u. a. von MS-Office. Die Leutchen vom Visula Basic Forum sind manchmal sogar ‚genervt‘, wenn man mit VBA-Fragen kommt.
:wink:

Ciao

Uwe

4

[ot] tatsächlich?
ist das so? mh. verdammt, jetzt bin ich verwirrt und weiss gar net, wo ich hinposten soll *fg*