Änderungsprotokoll Excel
01.02.2021 13:58:48
hans
ich habe folgenden Code der funktioniert soweit.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim LoLetzte As Long
Application.EnableEvents = False
With Worksheets("History")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
_
_
_
_
Rows.Count) + 1
.Cells(LoLetzte, 1) = Target.Address
.Cells(LoLetzte, 2) = Target
.Cells(LoLetzte, 3) = Sh.Name
.Cells(LoLetzte, 4) = Environ("Username")
.Cells(LoLetzte, 5) = Date
.Cells(LoLetzte, 6) = Time
End With
Application.EnableEvents = True
End Sub
_______________________
Jetzt würde ich gerne noch den Inhalt der Spalte A (Benennung mit Formatierung) aus der jeweilig geänderten Zeilen mit ausgeben um mich besser zurechtzufinden und nicht nur nach Zelle B5, C10 oder so suchen zu müssen.
Vielen Dank
hans