Hallo Holger,
hab mir ne krative Auszeit gegönnt und bin nun auf eine Lösung gestoßen.
Deshalb hier die Lösung:
If wsProtokoll Is Nothing Then Set wsProtokoll = Sheets("Protokoll")
With wsProtokoll.Cells(65536, 1).End(xlUp).Offset(1)
.Value = ActiveSheet.Name
.Offset(0, 1) = Cells(Target.Row, 1)
.Offset(0, 2) = Cells(3, Target.Column) --> Das hier hatte mir gefehlt, und passt jetzt :)
.Offset(0, 3) = Environ("Username")
.Offset(0, 4) = Now()
.Offset(0, 5) = IIf(lastValue = lastFormula, lastValue, "'" & lastFormula)
.Offset(0, 6) = IIf(newValue = newFormula, newValue, "'" & newFormula)
|