Bei Datumseingabe Löschung in anderem Tabellenblat
02.08.2007 20:15:00
chris58
Meine allerletze Frage, hoffe ich jedenfalls ...........
Ich habe diesen Code in meinem Tabellenblatt "Neuwagen-Finanzierung" und wenn ich da ein Datum in Spalte L oder M eintrage dann löscht er diese zeile und überträgt die Daten in das Tabellenblatt "Erledigt".
Nun will ich, das wenn ich in Spalte L oder M ein Datum eintrage nicht nur die Löschung und und Übertagung sondern es soll auch die dazugehörende Zeile im Tabellenblatt Dok.Ink. gelöscht werden. Die beiden Tabellenblätter "Dok.Ink." und "Neuwagen-Finanzierung" hängen mit den Spalten B und C zusammen. In spalte B ist die fortlaufende Nummer und in Spalte C die Rechnungsnummer eingetragen, auf beiden Tabellenblättern. Geht das irgendwie, das man das automatisiert ?
Danke für Eure Antworten
chris58
Hier der bisherige Code, der funktioniert einwandfrei, jedoch ohne Löschung der zeile in Tabellenblatt Do.Ink.:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
If Not ((Target.Column = 12 _
Or Target.Column = 13) And _
Target.Row > 1) Then
If Intersect(Range("A3:G4000"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
For lRow = Target.Row To Target.Row + Target.Rows.Count - 1
Cells(lRow, 11).Value = Date
Next lRow
Application.EnableEvents = True
Exit Sub
End If
On Error GoTo leave_sub
If IsDate(Target) Then ' Abfrage, ob Datum
Application.EnableEvents = False
lRow = Sheets("Erledigt").Range("H" & Sheets("Erledigt").Rows.Count).End(xlUp).Row _
+ 1
ActiveSheet.Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).Copy
Sheets("Erledigt").Cells(lRow, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Erledigt").Cells(lRow, 1).PasteSpecial Paste:=xlPasteFormats
Target.EntireRow.Delete (xlUp)
MsgBox "Datensatz wurde in die Datei Erledigt archiviert!", vbOKOnly + _
vbInformation, "Archiv"
Application.EnableEvents = True
End If
leave_sub:
End Sub
Anzeige