Ungenaue Abfragen?

Forumthread: Ungenaue Abfragen?

Ungenaue Abfragen?

19.08.2002 14:47:45

Christian

Hallo Leute,

ich lasse einmal pro Woche ein Makro laufen, dass mir zuerst die Anzahl der Zellen mit dem heutigen Datum in einer Spalte anzeigt, und anschliessend alle anderen Zeilen loescht.

Leider scheint das Zaehlen nicht in allen Tabellenblaettern zu funktioníeren.

If Cells(I, 17) = Date Then N = N + 1
(Findet auf einigen Blaettern nicht alle Zellen)

If ActiveCell.Value <> Date Then ActiveCell.EntireRow.Delete
(Funktioniert auf allen Blaettern)

Hat jemand vielleicht eine Idee, woran das liegen kann? Alle Blaetter sind gleich aufgebaut und unterscheiden sich nur in der Menge der Zeilen.

Gruss
Christian

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Ungenaue Abfragen?

19.08.2002 15:20:52

Martin Beck
Re: Ungenaue Abfragen?

19.08.2002 15:21:12

mathias r.
Re: Ungenaue Abfragen?

19.08.2002 15:22:26

hans-Jörg
Re: Ungenaue Abfragen?

19.08.2002 16:26:11

Christian

Re: Ungenaue Abfragen?

19.08.2002 15:20:52

Martin Beck

Hallo Christian,

ist N eine Zählvariable innerhalb einer Schleife? Wenn ja, mußt Du die Schleife von hinten nach vorne abarbeiten. Bezogen auf Zeilennummern bedeutet dies, mit der größten Zeilennummer anzufangen und rückwärts bis zur kleinsten Zeilennummer vorzugehen.

Gruß
Martin Beck

Re: Ungenaue Abfragen?

19.08.2002 15:21:12

mathias r.

Geht das ?

Re: Ungenaue Abfragen?

19.08.2002 15:22:26

hans-Jörg

kann es möglich sein das nicht alle Zellen die ein Datum beinhalten, das Format eines Datums haben?
Somit wurde ein Textfeld das Ergebnis "Falsch" darstellen auch wenn ein Datum darin steht.
Hans-Jörg

Re: Ungenaue Abfragen?

19.08.2002 16:26:11

Christian

Hi,

vielen Dank fuer Eure Hilfe. Leider hat mir das noch nicht weitergeholfen.

Hier ist die komplette Schleife:
For I = 11 To ActiveSheet.UsedRange.Rows.Count
If Cells(I, 17) = Date Then
N = N + 1
End If
Next I

.......

Range("Q11").Select
For I = 1 To ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value <> Date _
Then ActiveCell.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Next I

Ich habe jetzt die Formatierung einer Zeile, in der es funktioniert kopiert und auf die nicht funktionierende uebertragen. Trotzdem wird das Datum mit der ersten Schleife nicht gefunden.

Ist denn ein Unterschied zwischen den beiden Abfragen
If Cells(I, 17) = Date
und
If ActiveCell.Value <> Date

Es sollte doch eigentlich bei der ersten die Menge gefunden werden, die bei der zweiten nicht geloescht wird.....oder?

Christian

Beliebteste Forumthreads (12 Monate)

Forumthread: Ungenaue Abfragen?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread