Liebe Leute,
mein Anliegen ist folgendes:
bei Eingabe eines bestimmten Wortes möchte ich, dass die gesamte Zeile in ein anderes Tabellenblatt verschoben wird, aber nur wenn das Datum in einer anderen Zelle länger als 3 Monate (also >90 Tage) zurückliegt. Den ersten Teil habe ich mir soweit bereits im Netz besorgt, meine VBA-Nicht-Kenntnisse verhindern allerdings die weitere Bearbeitung. Ich bekomms einfach nicht hin.
folgendes habe ich:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("D1:D1000"))
If Target Is Nothing Then Exit Sub
If Target = "erledigt" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 15)).Copy _
Destination:=Sheets("erledigt").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End If
End Sub
Es sollte so sein:
wenn in Zelle D "erledigt" eingegeben wird und in Zelle N das (bereits) eingetragene Datum länger als 3 Monate vom heutigen Datum zurückliegt, dann die gesamte Zeile in das Tabellenblatt "erledigt" verschieben.
Ich hoffe auf eure Hilfe!
LG
Tomba
|