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

zeitstempel

zeitstempel
28.02.2005 20:22:37
Andreas
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeitstempel
28.02.2005 20:52:25
Peter
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

AW: zeitstempel
andreas
habe das nicht zum laufen gebracht
AW: zeitstempel
01.03.2005 11:02:11
andreas
hat da jemand eine idee
andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige