Option Explicit
Public altewerte
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long
Dim zeile2 As Long
If Not Intersect(Target, ActiveSheet.Columns(12)) Is Nothing Then
zeile = Target.Row
zeile2 = Worksheets("Protokoll").Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), ActiveSheet.Cells(zeile, 6)).Copy Worksheets("Protokoll").Range("A" & zeile2 + 1)
ActiveSheet.Range("L" & zeile).Copy Worksheets("Protokoll").Range("G" & zeile2 + 1)
Worksheets("Protokoll").Cells(zeile2 + 1, 8) = altewerte
Worksheets("Protokoll").Cells(zeile2 + 1, 9) = Now
Worksheets("Protokoll").Cells(zeile2 + 1, 10) = Environ("Username")
Worksheets("Protokoll").Columns(9).AutoFit
Worksheets("Protokoll").Columns(10).AutoFit
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.Columns(12)) Is Nothing Then
altewerte = Target.Value
End If
End Sub