|
Hallo Jakob,
hier eine Idee zu Deinem Anliegen, wenn ich es richtig verstanden habe...
Wozu brauchst Du eine Schleife, wenn doch nur ein Feld eine Änderung erfahren hat?
Und was genau soll übernommen werden. Zur Zeit wird die Formel, so vorhanden, übernommen.
Ggf. mit Target.Value arbeiten....
Code:
01
02
03
04
05
06
07
08
09
10
11 |
|
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr("A1,B1,C1,", Target.Address(0, 0) & ",") = 0 Then Exit Sub
With Tabelle2
With .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
.Offset(0, 0).Value = Date
.Offset(0, 1).Value = "'" & Target.FormulaLocal
.Offset(0, 2).Value = Time
End With
End With
End Sub
|
_________
viele Grüße
Karl-Heinz
|