Exelzeilen automatisch loeschen

Computer: Software & Programmierung Office Software
1

Ich habe eine Excel Liste in der Geburtsdaten hinterlegt sind. Nun moechte ich das mir alle Zeilen welche nicht innerhalb eines definierten Zeitraumes leige geloescht werden.
Der Zeitraum, welcher nicht geloescht werden soll muss aber variabel sein, sodass ich diese aenderen kann, da sich dieser ca. Woechentlich veraendert.

Vielen Dank schon jetzt.

2

Ich habe eine Excel Liste in der Geburtsdaten hinterlegt sind.
Nun moechte ich das mir alle Zeilen welche nicht innerhalb
eines definierten Zeitraumes leige geloescht werden.
Der Zeitraum, welcher nicht geloescht werden soll muss aber
variabel sein, sodass ich diese aenderen kann, da sich dieser
ca. Woechentlich veraendert.

Hallo Nighty,

Prozedur löscht alle Datumszeilen deren Datum kleiner als das in C1 ist oder größer als das in D1.
Datumswerte werden in Spalte A erwartet, ggfs. im Code abändern.

Sub Loeschen()
Dim Zei As Long
With Worksheets("Tabelle1")
 For Zei = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
 If .Cells(Zei, "A") = .Range("D1") + 1 Then
 .Cells(Zei, "A").EntireRow.Delete
 End If
 Next Zei
End With
End Sub

Gruß
Reinhard

3

So funktioniert es nicht! M.E. muß der OR-Operator durch AND ersetzt und außerdem beim Cell-Range noch Value ergänzt werden.
Gruß!
Friedrich

Prozedur löscht alle Datumszeilen deren Datum kleiner als das
in C1 ist oder größer als das in D1.
Datumswerte werden in Spalte A erwartet, ggfs. im Code
abändern.

Sub Loeschen()
Dim Zei As Long
With Worksheets(„Tabelle1“)
For Zei = .Cells(Rows.Count, „A“).End(xlUp).Row To 2 Step
-1
If .Cells(Zei, „A“) = .Range(„D1“) + 1 Then
.Cells(Zei, „A“).EntireRow.Delete
End If
Next Zei
End With
End Sub

Gruß
Reinhard

4

So funktioniert es nicht! M.E. muß der OR-Operator durch AND
ersetzt und außerdem beim Cell-Range noch Value ergänzt
werden.

Hallo Friedrich,

der Code ist getestet und macht das was ich schrieb:

"::stuck_out_tongue:rozedur löscht alle Datumszeilen deren Datum kleiner als das

in C1 ist oder größer als das in D1."

Bei Value haste prinzipiell Recht, spielt hier aber keine Rolle.

Gruß
Reinhard

5

Hallo Friedrich,

Das 1. De Morgansche Gesetz lautet:

nicht (a und b) = (nicht a) oder (nicht b)

also:
.NOT. ( A >= C1 .AND. A D1 ) = „außerhalb“

Gruß Finus

6

Tut mir Leid, war Mißverständnis!
Habe die Bedeutung von C1 und D1 falsch herum interpretiert.
Gruß!
Friedrich