Problem mit DTPicker in For Each Schleife
18.03.2008 14:46:00
Nici
ich habe ein Problem mit folgender For Each Schleife:
Worksheets("Tabelle1").Activate
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Sheets("Tabelle1").Range("E2:E100")
For Each Zelle In Bereich
If Zelle.Value Zelle.EntireRow.Delete
End If
Next
Die gleiche Schleife benutze ich für einen 2ten DTPicker.
If Zelle.Value > DTPicker2.Value Then
Zelle.EntireRow.Delete
Ich möchte mit Hilfe der beiden DTPicker einen datumsabhängigen Kontoverlauf anzeigen lassen, und somit alle Zeilen die ausserhalb des gewählten Bereichs liegen (von bzw. bis) rauslöschen.
Könnte das irgendwie mit dem Value des DTPicker im Eigenschaftenfenster zu tun haben? Da er mir dort das Erstellungsdatum des DTPicker angibt (11.03.). Wenn ich nämlich den DTPicker1 auf den 12.03. setze, so löscht er mir die Zeile mit dem 10.03. raus, so wie es auch sein soll, aber er löscht mir nicht die Zeile mit dem 11.03.
Ich wäre für Hilfe sehr dankbar.