SheetChange Value von erster Spalte
26.12.2019 14:37:24
erster
Ich möchte gerne in einem SheetChange Code nebst den unten angegebenen Werten auch den Wert der erstern Spalte in der selbern Zeile ausgeben, in der ein Wert geändert wurde.
Aktuell steht dort .Value = Target.Column (unten fett markiert)
Das möchte ich gerne ersetzen.
Der aktuelel Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name "LogDetails" Then
Application.EnableEvents = False
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.Name
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Target.Address(0, 0) _
_
_
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Target.Value
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Environ("username")
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 4).Value = Now
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 5).Value = ActiveWorkbook.Name
Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 6).Value = Target.Column _
_
_
Sheets("LogDetails").Columns("A:G").AutoFit
Application.EnableEvents = True
End If
End Sub
Vielen Dank für Eure Hilfe.