Mit folgendem Code wird bei einer Eingabe in der nächsten freien Zelle der Spalte 10 der Wert in die Tabelle1 in die nächste freie Zelle der spalte C kopiert.
Mein Problem ist jetzt, das in der Spalte 10 der Wert nicht eingegeben wird, sondern über eine Formel eingetragen wird. Daher wird auch nicht der Wert in die Tabelle1 eingetragen. Wie müßte man bitte den Code ändern, damit der Wert doch in der Tabelle1 eingetragen wird?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim efz&, c As Range
If Target.Column = 10 And Target.Row > 1 Then
With Worksheets("tabelle1")
Set c = .Columns(100).Find(Target.Row, LookAt:=xlWhole)
If Not c Is Nothing Then
.Cells(c.Row, 3).Value = Target
Else
efz = .Cells(Rows.Count, 3).End(xlUp).Row + 1
.Cells(efz, 3).Value = Target
.Cells(efz, 100).Value = Target.Row
End If
End With
End If
End Sub
Danke
Josef