Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schritthaltendes Protokoll

Schritthaltendes Protokoll
klaus
Guten Tag,
wenn in D1 ein Eintrag vorgenommen wird (Text oder Zahl), soll in der Zelle A1 die aktuelle Zeit abgebildet werden. Die weiteren Einträge werden dann D2 usw. gemacht, Uhrzeit dann in A2 usw. Mit jetzt() respektive now() geht´s nicht, da ja die jeweilige Uhrzeit "behalten" werden soll.
Vielen Dank und Grüße
Klaus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schritthaltendes Protokoll
Uwe
Hallo Klaus,
folgender Code ins Modul der entsprechenden Tabelle:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$D$1" And Not IsEmpty(Target) Then Me.Range("A1") = Time
End Sub

Danke, Not IsEmpty hat mir gefehlt
klaus
AW: Danke, Not IsEmpty hat mir gefehlt
23.03.2004 12:56:17
Hajo_Zi
Hallo Klaus
Das liest sich doch so als ob die Frage beantwortet ist.
Die Checkbox "Thread weiter anzeigen" ist dazu da damit der Beitrag noch als offen angezeigt wird. Ist Dein Problem gelöst brauchst Du ihn nicht auswählen. Bleibe mal ein Augenblick auf den Text und es wird ein Hinweis angezeigt.


AW: Schritthaltendes Protokoll
Waltraud
Probiers so:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 4 Then
Cells(Target.Row, 1) = Now()
End If
End Sub

Anzeige
danke waltraud, goldrichtig
klaus

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige