Office: Bei Änderung Datum automatisch einfügen

annewill1234 · 19. November 2008

Hallo,

kurze, allgemeine Erklärung:

Das Ändern eines Zellinhalts soll bewirken, dass das Datum in der Zelle daneben eingetragen wird.

spezieller Fall:

ich habe zwei Spalten (Spalte F und Spalte G). Sobald ein Eintrag innerhalb dieser Spalten geändert wird, soll in der entsprechenden Zeile in Spalte H das Datum eingetragen werden.

miriki · 20. November 2008

Zitat von annewill1234:
Das Ändern eines Zellinhalts soll bewirken, dass das Datum in der Zelle daneben eingetragen wird.{/quote]
allgemeiner Ansatz: Das Ändern einer Zelle durch manuelle Eingabe erzeugt das Ereignis "Change". Mittels VBA kann man auf das 'Ereignis reagieren und überprüfen, welche Zelle geändert wurde. Abhängig davon können ggf. weitere Aktionen durchgeführt werden.

ich habe zwei Spalten (Spalte F und Spalte G). Sobald ein Eintrag innerhalb dieser Spalten geändert wird, soll in der entsprechenden Zeile in Spalte H das Datum eingetragen werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In die Tabelle könnte folgender Code:
Code:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim y As Long

    'If (Target.Cells.Count = 1) Then
        If (Not Application.Intersect(Range("f:g"), Target) Is Nothing) Then
            y = Target.Row
            'x = Target.Column
            Range("h" & y).Value = Int(Now())
        End If
    'End If

End Sub
- Das Change-Ereignis wird nicht beim Löschen des Zellinhalts (Taste "Entf") aufgerufen.
- Das Change-Ereignis wird nicht beim Neuberechnen von Formeln (Ereignis: "Calc") aufgerufen.
- Der Undo-Puffer wird bei Auslösen des Change-Ereignisses geleert.

Gruß, Michael
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Bei Änderung Datum automatisch einfügen

Bei Änderung Datum automatisch einfügen

Bei Änderung Datum automatisch einfügen

Bei Änderung Datum automatisch einfügen - Similar Threads - Änderung Datum automatisch

Änderung Titel Folie 1 für alle weiteren Folien übernehmen

Zeichenzahl begrenzen und trotzdem Kommentare zulassen?

Aktuelles Datum und aktuelle Uhrzeit (System) einfügen wenn Änderungen in einer Zelle stattfinden

Änderungen Prozent Datum

Speichern von Datum und Uhrzeit der Änderung eines Datensatzes

Änderungen nachverfolgen: Datum anzeigen

Änderung des Datums in einer Zelle