statisches Datum über Wenn Funktion einfügen

16/06/2008 - 16:40 von mermegil | Report spam
Hallo,
ich habe folgendes Problem. In einer Zelle E2 wird nach einer Eingabe
in einer anderen Zelle ein Text eingefügt. Das Datum und die Uhrzeit
der Änderung hàtte ich gerne in der Nachbarzelle F2 festgehalten. Bin
leider nicht so fit in der Erstellung von neuen Funktionen bzw.
Makros. Hat jemand eine Idee?

Vielen Dank im Vorraus

Stefan
 

Lesen sie die antworten

#1 Peter Schleif
17/06/2008 - 09:14 | Warnen spam
schrieb am 16.06.2008 16:40 Uhr:

ich habe folgendes Problem. In einer Zelle E2 wird nach einer Eingabe
in einer anderen Zelle ein Text eingefügt. Das Datum und die Uhrzeit
der Änderung hàtte ich gerne in der Nachbarzelle F2 festgehalten.



Wenn Du das wirklich ausschließlich bei Zelle E2 haben willst,
probiere doch bitte die erste Prozedur. Falls es auch mit anderen
Zellen der Spalte E funktionieren soll, nimm bitte die zweite.

*Aber auf keinen Fall beide*

In beiden Fàllen kannst Du die NumberFormat-Anweisung weglassen, wenn
deine Zelle F2 bzw. die Spalte F bereits für die Anzeige von Datum und
Zeit formatiert ist.

Peter


'/reagiert nur auf E2 /
'--
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
Application.EnableEvents = False

If Target.Address(False, False) = "E2" Then
[F2] = Now
[F2].NumberFormat = "dd/mm/yyyy hh:mm:ss"
End If

ende:
Application.EnableEvents = True
End Sub


'/reagiert auf alle Zellen in Spalte E/
'--
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
Application.EnableEvents = False

If Target.Cells.Count = 1 And Target.Column = 5 Then
Target.Offset(0, 1) = Now
Target.Offset(0, 1).NumberFormat = "dd/mm/yyyy hh:mm:ss"
End If

ende:
Application.EnableEvents = True
End Sub

Ähnliche fragen