Benutzername Datum Zeit in Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column > 47 Then Exit Sub Range("AU2").Value = Range("B2").Value & " " & Format(Now, "yyyy.mm.dd hh:mm:ss") End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column > 47 Then Exit Sub Range("AU" & Target.Row).Value = Range("B2").Value & " " & Format(Now, "yyyy.mm.dd hh:mm:ss") _ End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column > 47 Then Exit Sub If Target.Row = 1 Then Exit Sub Range("AU" & Target.Row).Value = Range("B2").Value & " " & Format(Now, "yyyy.mm.dd hh:mm:ss") _ _ End Sub

Hallo Peter,
diese Zeile "If Target.Row = 1 Then Exit Sub" hat Gerd bereits ergänzt. Die Zeile 1 wird damit vom Beschreiben durch das makro ausgenommen. Vielen Dank.
Mein neues Problem war ein anderes:
Zitat Anfang:
Hallo,
nun habe ich doch wieder ein Problem, das mir beim Test aufgefallen ist:
Wenn ich in einer Zeile im Bereich der Spalten A bis AT etwas eingebe, dann wir gemäß Makro der Eintrag vorgenommen - bis hier ist das auch toll.
Nun hatte ich z.B. in A25 etwas getippt und wieder gelöscht. Der Eintrag vom Makro steht bleibt natürlich in AU25 stehen.
Kann das Makro so funktionieren, dass nur bei Einträgen (wirkliche Inhalte) in A bis AT die Makroausführung erfolgt und sonst eben nicht?
(ich hoffe das ist einigermaßen verständlich :-( )
Über Hilfe würde ich mich sehr freuen.
Gruß
Micha
Zitat Ende:

Hallo Micha,
hier vielleicht nicht ganz genau das, was Du suchst. Ich weiß auch nicht, wie man den Code anpassen müsste.
Der Code erzeugt eine externe .txt-Datei im gleichen Verzeichnis als "LogBuch_Dateiname", in der alle Änderungen mit Datum, Uhrzeit, User, Tabellenblatt, Zellbereich und eigentliche Änderung aufgezeichnet werden.
Der Code gehört in "Diese Arbeitsmappe":


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strDatei As String, strText As String, intFile As Integer, c As Range
intFile = FreeFile
strDatei = ThisWorkbook.Path & "\LogBuch_" & Replace(ThisWorkbook.Name, ".xls", "") & ".txt"
Open strDatei For Append As intFile
For Each c In Target.Cells
strText = Format(Now, "YYMMDD_hhmmss") _
& vbTab & Environ("username") _
& vbTab & Sh.Name _
& vbTab & c.Address _
& vbTab & c.Value
Print #intFile, strText
Next c
Close intFile
End Sub

Gruß
Bibo

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column > 47 Then Exit Sub If Target.Row = 1 Then Exit Sub If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 46))) = 0 Then Range("AU" & Target.Row).Value = "" Else Range("AU" & Target.Row).Value = Range("B2").Value & " " & _ Format(Now, "yyyy.mm.dd hh:mm:ss") End If End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benutzername Datum Zeit in Zelle

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread