Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

Datum Änderung der Zeile anzeigen

Datum Änderung der Zeile anzeigen
25.03.2019 11:24:39
Michael
Hallo Excel-Alleskönner,
auf der Suche nach der Lösung eines meiner Excel-Probleme bin ich auf folgenden Beitrag gestoßen:
https://www.herber.de/forum/archiv/1576to1580/1578555_Datum_und_Benutzer_letzte_Aenderung_in_Zelle.html#1578555
Die Lösung kann ich allerdings nicht 1:1 übernehmen und aufgrund meines geringen Kenntnisstandes auch nicht anpassen.
Meine Tabelle wird pro Zeile in den Spalten C bis K geändert, das Datum der letzten Änderung der Zeile soll dann in der Spalte L angezeigt werden.
Ich bedanke mich schon im Voraus für Unterstützung.

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

Betreff
Datum
Anwender
Anzeige
AW: Datum Änderung der Zeile anzeigen
25.03.2019 11:53:44
Armin
Hallo Michael,
in die Klassenseite der Tabelle diesen Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns(3).Resize(, 11)) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 12).Value = Format(Date + Time, "dd.mm.yyyy - hh:mm:ss")
Application.EnableEvents = True
End If
End Sub
Gruß Armin
AW: Datum Änderung der Zeile anzeigen
25.03.2019 12:28:08
Mustafa
Hallo Michael,
Schau mal ob das so passt :
Rechtsklick auf den Tabellenreiter>Code anzeigen und folgenden Code einfügen:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Range("C:K"), Target) Is Nothing Then
If Target.Row = 1 Then Exit Sub
If Target.Row = 2 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, 12) = Format(Date, "DD.MM.YYYY")
Cells(Target.Row, 13) = Environ("Username")
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß aus der Domstadt Köln
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige