Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum aktualisieren bei Änderung des Zellwertes

Datum aktualisieren bei Änderung des Zellwertes
Melli
Hallo Ihr Excel-Profis,
ich stehe vor einem (hoffentlich kleinem) Problem.
Wir haben eine sehr lange Kundenliste in Excel erfasst.
Nun möchte ich eine Spalte hinzufügen in der das Datum vermerkt wird, wenn eine Änderung in der Zeile vorgenommen wurde. So, dass jeder der auf die Liste zugreift weiss, wann der Kontakt das letzte Mal geändert wurde.
Hoffe, ich konnte mich einigermaßen verständlich ausdrücken :-)
Freue mich auf Hilfe.
Vielen Dank im voraus.
Melli

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum aktualisieren bei Änderung des Zellwertes
14.02.2006 12:20:44
Marco
Hallo
mit dieser Formel funzt es!
Vorrausgesetzt du hast das aktuelle Datum in B1 stehen!
=WENN(B1"";(JETZT());"")
Allerdings... wenn man die Datei schliesst und wieder öffnet, dann steht die Zeit und das Datum drin an dem die Datei soeben geöffnet wurde!!
Was du exakt braucht funzt nur mit VBA, aber da kann ich dir nicht helfen... sorry!
Viel glück
Gruss
Marco R
AW: Datum aktualisieren bei Änderung des Zellwertes
14.02.2006 12:24:11
Harald
Hallo Melli,
rechte Maustaste auf den Tabellenblattreiter, Code anzeigen und diesen Code ins rechte Fenster kopieren.
Eingabebereich anpassen...fertich ;-))

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich As Range
On Error GoTo errorhandler
'Sheets(1).Unprotect "Passwort"
Set bereich = Range("B1:G7") 'Eingabebereich
Application.EnableEvents = False
If Not Intersect(Target, bereich) Is Nothing Then
Cells(Target.Row, 8) = Date 'Datum in Eingabezeile, 8. Spalte H )
End If
errorhandler:
Application.EnableEvents = True
'Sheets(1).Protect "Passwort"
End Sub

Gruss Harald
Anzeige
AW: Datum aktualisieren bei Änderung des Zellwerte
14.02.2006 12:35:45
Melli
Hallo Harald,
vielen Dank! Das klappt und ist genau das, was ich brauche. Das war meine erste VBA-Anwendung :-)
Viele Grüße
Melli
Danke für die Rückmeldung ;-)) owT
14.02.2006 12:38:26
Harald
Gruss Harald

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige