Datum hinter Protokollzeile

Hallo zusammen,
ich habe von Euch in den letzten Tagen schon viele Hilfe bekommen! Ich bedanke mich nochmals ausdrücklich!
Nun möchte ich nach dem eine Zelle einen Protokolltexteintrag bekommen hat, das Datum dahinter schreiben!
Ich Schreibe in Zelle -----G7------
z. B.
-----------------------------------------------------------
_Das Bierfass ist noch voll; 12.07.2008 .................. erster Eintrag
_Das Bierfass ist noch halb voll; 13.07.2008.......... zweiter Eintrag
_Das Bierfass ist schon leer; 14.07.2008................dritter Eintrag
-----------------------------------------------------------
Die Einträge (Protokolleinträge) habe ich an drei verschiedenen Tagen durchgeführt! Diesen Eintrag führe ich manuell durch!
Kann man das kürzer bekommen ? Ich dachte an Tastenfunktion !
Oder man betätigt in der Kopfzeile ein Button!
In beiden Fällen soll immer in der aktuellen selektierten Zelle das letzte Zeichen in der Zeichenkette gesucht werden, um das Datum eintragen zu können.
Das Datum sollte ein oder zwei Leerzeichen später eingetragen werden!
Gruß
Lemmi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = 0 Target.Value = Target.Value & " " & Now 'oder Target.Value = Target.Value & " " & Date Application.EnableEvents = 1 End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C7:H1000")) Is Nothing Then Application.EnableEvents = 0 Target.Value = Target.Value & " " & Now 'oder Target.Value = Target.Value & " " & Date Application.EnableEvents = 1 End If End Sub

Matthias,
Ich habe da noch etwas vergessen!
Der Code so gelaube ich, auch von Dir.
'


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen
'If Application.CutCopyMode Then Exit Sub 'nicht beim Kopieren/Ausschneiden
Application.EnableEvents = False
If Not Intersect(Target, Range("C6:O1000")) Is Nothing Then
Range("E3") = Now
If Not Intersect(Target, Range("G6:H1000,M6:M1000,O6:O1000")) Is Nothing Then
Range("N" & Target.Row) = Now
End If
End If
Application.EnableEvents = True
'End Sub

... währe es möglich Deinen neuen Code mit einzubinden!


Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = 0
Target.Value = Target.Value & "  " & Now
'oder Target.Value = Target.Value & "  " & Date
Application.EnableEvents = 1
End Sub

Gruß
Lemmi

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen 'If Application.CutCopyMode Then Exit Sub 'nicht beim Kopieren/Ausschneiden Application.EnableEvents = False If Not Intersect(Target, Range("C6:O1000")) Is Nothing Then Range("E3") = Now If Not Intersect(Target, Range("C7:H1000")) Is Nothing Then Target.Value = taget.Value & " " & Date End If If Not Intersect(Target, Range("G6:H1000,M6:M1000,O6:O1000")) Is Nothing Then Range("N" & Target.Row) = Now End If End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum hinter Protokollzeile

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread