Zellinhalt in Abhängigkeit einer Berechnung löschen

18/04/2008 - 11:43 von dani | Report spam
Guten Tag,

ich habe eine Excel-Mappe in der u. a. Namen, Vornamen und Datum
eingetragen werden. Nun hàtte ich gerne, dass der Name und der Vorname
automatisch gelöscht werden, wenn 3 Monate vom eingegebenen Datum aus
verstrichen sind.

Klartext:
Spalte A = Name
Spalte B = Vorname
Spalte C = Datum
Spalte D = Sonstiges

=wenn(heute()-Wert in Spalte C=>90;inhalt der entsprechenden Zeile der
Spalte a und b löschen; keine Aktion)

Wàre nett, wenn mir jemand einen Code geben könnte, der diese Aktion
automatisch beim Öffnen ausführt.

Gruß
Dani

Excel 2003 auf Win XP Prof.
 

Lesen sie die antworten

#1 Claus Busch
18/04/2008 - 12:01 | Warnen spam
Hallo Dani,

Am Fri, 18 Apr 2008 02:43:35 -0700 (PDT) schrieb dani:

ich habe eine Excel-Mappe in der u. a. Namen, Vornamen und Datum
eingetragen werden. Nun hàtte ich gerne, dass der Name und der Vorname
automatisch gelöscht werden, wenn 3 Monate vom eingegebenen Datum aus
verstrichen sind.

Klartext:
Spalte A = Name
Spalte B = Vorname
Spalte C = Datum
Spalte D = Sonstiges

=wenn(heute()-Wert in Spalte C=>90;inhalt der entsprechenden Zeile der
Spalte a und b löschen; keine Aktion)



probiere es mal so (die entsprechende Zeile wird entfernt. Falls du nur die
Inhalte löschen willst, erstetze Delete durch Clear):
Sub Loeschen()

Dim i As Long
Dim LRow As Long

LRow = Cells(Rows.Count, 3).End(xlUp).Row

For i = LRow To 2 Step -1
If Date > Cells(i, 3).Value + 90 Then
Cells(i, 3).EntireRow.Delete
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen