Microsoft Excel

Herbers Excel/VBA-Archiv

Datum+Zeit speichern wenn zelle geändert

Betrifft: Datum+Zeit speichern wenn zelle geändert von: Daniel
Geschrieben am: 06.08.2014 11:47:11

Hallo,
und zwar möchte ich wenn ich in einem Bereich etwas ändere,
also eine Zelle das aktuelle Datum und Zeit in der Spalte xy eingetragen wird.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B50:B1000"), Target) Is Nothing Then Exit Sub
 Target.Offset(0, 1).Value = Date
End Sub


Dieses Beispiel würde mir schon reichen, aber statt es immer eine Spalte weiter rechts einzutragen möchte ich es in einer bestimmten Spalte geändert haben.

Hier ein Beispiel:

Ich ändere Zelle A4 und in G4 soll nun der aktuelle Zeitpunkt eingetragen werden.
Jetzt ändere ich B4 und in G4 soll nun der aktuelle Zeitpunkt eingetragen werden.
Zelle A1 ändere ich und in G1 soll nun der aktuelle Zeitpunkt eingetragen werden.


Hier die Tabelle: http://puu.sh/aGTct/3f82fb3e4d.png

Wäre überaus dankbar, wenn mir jmd. helfen könnte.

mfg

  

Betrifft: AW: Datum+Zeit speichern wenn zelle geändert von: Hajo_Zi
Geschrieben am: 06.08.2014 11:54:54

Cells(Target.row, 7) = Date


GrußformelHomepage


  

Betrifft: AW: Datum+Zeit speichern wenn zelle geändert von: Robert
Geschrieben am: 06.08.2014 11:55:57

Hallo,

Statt

Target.Offset(0,1).Value = Date
Schreibe:
ActiveSheet.Cells(Target.Row, 7) = Date
Viele Grüße
Robert


  

Betrifft: AW: Datum+Zeit speichern wenn zelle geändert von: Daniel
Geschrieben am: 06.08.2014 12:19:59

Danke! funktioniert:-)


  

Betrifft: AW: Datum+Zeit speichern wenn zelle geändert von: Tino
Geschrieben am: 06.08.2014 13:07:23

Hallo,
evtl. geht es so?!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Range("A:H"), Target)
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
    For Each rng In rng.Areas
        rng.EntireRow.Columns(7).Value = Now
    Next rng
Application.EnableEvents = True
End Sub
Gruß Tino


 

Beiträge aus den Excel-Beispielen zum Thema "Datum+Zeit speichern wenn zelle geändert"