Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datumanzeige, Antwort an Konni

Datumanzeige, Antwort an Konni
10.10.2005 06:55:28
Torsten
Hallo Konni,
vielen Dank für deine Hilfe. Ich benötige aber eine Datumanzeige, wenn in einem bestimmten Feld einer Zeile ein Änderung vorgenommen wird. Vielleicht kannst du mir hierbei auch helfen? Vielen Dank.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumanzeige, Antwort an Konni
10.10.2005 07:27:55
GeorgK
Hallo,
brauchst Du so was:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
Range("A1") = _
Format(Date, "dd.mm.yy")
End Sub

Datum der Änderung steht in A1
Grüße
Georg
AW: Datumanzeige, Antwort an Konni
10.10.2005 07:35:03
Harald
Moin Torsten,
Bleib bitte im alten Thread.
Hier ein Code der im Blattmodul, der bewirkt dass bei Änderungen im Bereich E2 bis E500
eine Spalte links der Änderung (target.offset(o, -1) das Datum eingetragen wird.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Row < 2 Or Target.Count > 1 Then Exit Sub
Set RaBereich = Range("E2:E500")
Application.EnableEvents = False
If Not Intersect(Target, RaBereich) Is Nothing Then
Target.Offset(0, -1) = Date
End If
If Not Intersect(Target, SBereich) Is Nothing Then
Target.Offset(0, -1) = Date
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruß
Harald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige