Gibt es eine Möglichkeit diesen Code anzupassen?:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
On Error GoTo ERREXIT
Application.EnableEvents = False
Cells(Rows.Count, 8).End(xlUp).Offset(1).Resize(, 3) = Target.Resize(, 3).Value
End If
ERREXIT:
Application.EnableEvents = True
End Sub
Anstatt die Werte aus den Spalten A;B;C in der Spalte H;I;J aufsteigend wiederzugeben (das macht der Code super),die Werte aus den Spalten H;I;J in einem 2. Tabellenblatt in den Spalten A;B;C wiederzugeben? Ausschlaggebend dabei sollte sein, dass der Code erst
arbeitet, wenn in Spalte I ein Wert eingetragen wird. Dann sollte der Code den Wert aus I inklusive die Werte links und rechts davon ausgeben.