Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige