Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erstes Änderungsdatum speichern

Erstes Änderungsdatum speichern
04.11.2015 16:08:25
Fabian
Hallo,
wie kann ich es realisieren, dass sobald das erste mal eine Zelle beschrieben wird A1 zugleich das Datum in B1 eingetragen wird. Wird nochmals was geändert, ändert dies nichts an dem Datum ,
Sobald eine Zeile drüber einfügt wird, muss der Bezug auf der Zelle bleiben, sprich auch um eins nach unten rutschen.
Kann jemand eine Lösung hierfür?
Gruß

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erstes Änderungsdatum speichern
04.11.2015 20:46:59
Sepp
Hallo Fabian,
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

On Error GoTo Errorhandler
Application.EnableEvents = False

For Each rng In Intersect(Target, Columns(1))
  If rng.Offset(0, 1) = "" Then rng.Offset(0, 1) = Date
Next

Errorhandler:
Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige