Ich möchte mich vorerst einmal für Eure Hilfe bedanken, jedoch habe ich eine Frage zu diesem code. Ich kann mittels dieses Codes, wenn ich ein Datum in die Spalte H eingebe, die gesamte Zeile in eine andere Tabelle kopieren. Nun zu meiner Frage: Kann ich in die gleiche Tabelle mehrere solche codes einbauen, sodaß ich, wenn ich in Zeile H oder in Zeile I ein Datum eingabe das kopieren ebenfalls erfolgt. Ich habe den Code mehrmals in die Tabelle eingetragen, jedoch kommt dann immer ein Fehler. Wie kann man das "händeln"? Könnt ihr mir helfen.
Danke im voraus
chris
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
If Not (Target.Column = 8 And _
Target.Row > 1) Then GoTo leave_sub
On Error GoTo leave_sub
If IsDate(Target) Then ' Abfrage, ob Datum
lRow = Sheets("Neuwagen-Finanzierung").Range("H" & Sheets("Neuwagen-Finanzierung"). _
Rows.Count).End(xlUp).Row + 1
ActiveSheet.Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy
Sheets("Neuwagen-Finanzierung").Cells(lRow, 1).PasteSpecial Paste:=xlPasteValues
MsgBox "Datensatz wurde archiviert!", vbOKOnly + vbInformation, "Archiv"
End If
leave_sub:
End Sub