01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23 |
|
Private Sub Worksheet_Change(ByVal Target As Range)
With Tabelle2
If InStr("A1,B1,C1,", Target.Address(0, 0) & ",") > 0 Then
' Mach was
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
ElseIf InStr("A3,B3,C3,", Target.Address(0, 0) & ",") > 0 Then
' Mach was anderes
With .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
.Offset(0, 0).Value = Target.Value
.Offset(0, 1).Value = Date
.Offset(0, 2).Value = Time
End With
End If
End With
End Sub
|