Guten Tag,
da mir hier bereits schon geholfen wurde, hätte ich noch ein anliegen.
Mit dem unten stehenden Code, wird immer die nächst freie Zelle einen
Eintrag eingefügt.
Ich möchte aber das er immer in Zeile 2 eine neue Zeile einfügt und dort die Werte einträgt,
so das im Prinzip immer die neuesten Werte ganz oben stehen (Zeile 1 ist die Überschrift).
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim ErsteFreieZeile As Long If Target.Count = 1 Then If Not Intersect(Target, Sh.Range("A1:AS47")) Is Nothing Then Application.EnableEvents = False With Worksheets("Protokoll") ErsteFreieZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Unprotect Password:="xxx" .Cells(ErsteFreieZeile, 1) = Sh.Name .Cells(ErsteFreieZeile, 2) = Target.Address(0, 0) .Cells(ErsteFreieZeile, 3) = Target.Value .Cells(ErsteFreieZeile, 4) = Date .Cells(ErsteFreieZeile, 5) = Time .Cells(ErsteFreieZeile, 6) = Environ("username") .Protect Password:="xxx" End With Application.EnableEvents = True End If End If End Sub
Vielen Dank.