suche eine Möglichkeit, dass sobald in einer Zeile etwas eingetragen wird in einer andere Zeile das aktuelle Datum und Uhrzeit geschrieben wird und sich nicht mehr verändert.
hat einer Idee ?
Vielen Dank an euch im Voraus.
LG
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Count = 1 Then
Range("B" & Target.Row) = Format(Now, "dd.mm.yyyy hh:mm:ss")
End If
End Sub
MfG BerndSub Einfügen()
Rows("4:4").Select
Selection.Insert Shift:=xlDown
End Sub
MfG BerndPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim ErsteFreie As Long
On Error GoTo EventsAn
ErsteFreie = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
With Target
If .Count > 1 Then Exit Sub
Application.EnableEvents = False
If .Column = 11 And .Value = "Erledigt" Then
Rows(.Row).Copy Tabelle2.Cells(ErsteFreie, 1)
.EntireRow.Delete
End If
End With
EventsAn:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then
Range("C" & Target.Row) = Format(Now, "dd.mm.yyyy hh:mm")
End If
Dim ErsteFreie As Long
On Error GoTo EventsAn
ErsteFreie = Tabelle6.Cells(Rows.Count, 3).End(xlUp).Row + 3
With Target
If .Count > 1 Then Exit Sub
Application.EnableEvents = False
If .Column = 19 And .Value = "Erledigt" Then
Rows(.Row).Copy Tabelle6.Cells(ErsteFreie, 1)
.EntireRow.Delete
End If
End With
EventsAn:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then
Range("C" & Target.Row) = Format(Now, "dd.mm.yyyy hh:mm")
End If
Dim ErsteFreie As Long
On Error GoTo EventsAn
ErsteFreie = Tabelle6.Cells(Rows.Count, 3).End(xlUp).Row + 3
With Target
If .Count > 1 Then Exit Sub
Application.EnableEvents = False
If .Column = 19 And .Value = "Erledigt" Then
Rows(.Row).Copy Tabelle6.Cells(ErsteFreie, 1)
.EntireRow.Delete
End If
End With
EventsAn:
Application.EnableEvents = True
End Sub