Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Dim Eingabe As String
Set rng2 = Range("I4:AB4")
Set rng1 = Intersect(Target, rng2)
If Not rng1 Is Nothing Then
Application.EnableEvents = False
Eingabe = rng1(1).Formula
rng2.ClearContents
rng1(1).Formula = Eingabe
Application.EnableEvents = True
End If
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
'Veränderungen im Bereich G6:CZ1000 werden in derjewaligen Zeile 5 mit Datum _
protokolliert
If Not Intersect(Target, Range("G6:CZ1000")) Is Nothing Then
'Cells(5, Target.Column) = Now ' Ausgabe TT:MM:JJ und hh:mm:ss
Cells(5, Target.Column) = Date ' Ausgabe TT:MM:JJ
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Dim Eingabe As String
Set rng2 = Range("G4:AB4")
Set rng1 = Intersect(Target, rng2)
If Not rng1 Is Nothing Then
Application.EnableEvents = False
Eingabe = rng1(1).Formula
rng2.ClearContents
rng1(1).Formula = Eingabe
Application.EnableEvents = True
End If
Gruß
Lammi