Microsoft Excel

Herbers Excel/VBA-Archiv

Zeit automatisch eintragen | Herbers Excel-Forum


Betrifft: Zeit automatisch eintragen von: klausk
Geschrieben am: 04.08.2012 09:09:48

Guten Morgen,

bei der angehängten Datei soll bei einem Eintrag in die Spalten B oder C die jeweils aktuelle Zeit automatisch eingetragen werden. Für C ist dies mir mit Hilfe des Forums geglückt. Aber zusätzlich B bekomme ich leider nicht hin. Ein weiteres Problem: wenn einmal die Uhrzeit in A aktiviert wurde, soll sie quasi eingefroren werden, auch wenn ich B oder C wieder etwas geändert wird.

Vielen Dank und liebe Grüße

https://www.herber.de/bbs/user/81263.xls

  

Betrifft: AW: Zeit automatisch eintragen von: Reinhard
Geschrieben am: 04.08.2012 09:22:58

Hallo Klaus,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
  If Cells(Target.Row, 1).Value <> "" Then
    Application.EnableEvents = False
    Cells(Target.Row, 1).Value = Time
    Application.EnableEvents = True
  End If
End If
End Sub

Gruß
Reinhard


  

Betrifft: Ersetze <> "" durch = ""               o.w.T. von: Reinhard
Geschrieben am: 04.08.2012 09:29:54




  

Betrifft: AW: Zeit automatisch eintragen von: Josef Ehrensberger
Geschrieben am: 04.08.2012 09:23:39


Hallo Klaus,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Or Target.Column = 3 And Cells(Target.Row, 1) = "" Then
    Cells(Target.Row, 1) = Time 'oder Programmname eingeben
  End If
End Sub






« Gruß Sepp »



  

Betrifft: Dankeschön, klappt owT von: klausk
Geschrieben am: 04.08.2012 09:35:38




Beiträge aus den Excel-Beispielen zum Thema "Zeit automatisch eintragen"