zeitstempel

Bild

Betrifft: zeitstempel
von: Andreas
Geschrieben am: 28.02.2005 20:22:37
ich möchte bei einem eintrag in eine zelle einen korrespondierenden zeitstempel in einer anderen zelle eintragen.
A1 > "" = B1 zeitstempel
A2 > "" = B2 zeitstempel
usw.
A999 > "" = B999 zeitstempel
ich habe eine lösung vorgeschlagen bekommen, die funktioniert aber nur mit einem zeitstempel:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:H80")) Is Nothing Then
        Application.EnableEvents = False
        ActiveSheet.Range("C2").Value = Format(Date, "DD.MM.YYYY")
        Application.EnableEvents = True
    End If
End Sub

wie muss ich das makro anpassen
Bild

Betrifft: AW: zeitstempel
von: Peter
Geschrieben am: 28.02.2005 20:52:25
Versuch's mal
Peter

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    If Not IsEmpty(Cells(Target.Row, 1)) Then
        Cells(Target.Row, 2) = Now
    Else: Cells(Target.Row, 2) = ""
    End If
End If
End Sub

Bild

Betrifft: AW: zeitstempel
von: andreas
Geschrieben am: 28.02.2005 21:41:30
habe das nicht zum laufen gebracht
Bild

Betrifft: AW: zeitstempel
von: andreas
Geschrieben am: 01.03.2005 11:02:11
hat da jemand eine idee
andreas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Buttontext auslesen"