---

Hey Leute, 
ich habe da ein Problem. Ich möchte mittels VBA ein Programm schreiben, dass wenn in der Spalte A ein "falsches Datum" steht, der Inhalt der Zelle gelöscht wird. Das Datum ist chronologisch geordnet und sollte im Regelfall immer eine Minute größer sein als in der Spalte zuvor. In Zelle A2 steht das erste Datum, welches immer korreckt ist. Das somit Lücken in der neuen Datumsabfolge entstehen ist richtig.
Bei dem Programm, was ich versucht habe zu schreiben, Funktioniert die Minutenüberprüfung nicht so recht. Mir werden richtige Datums auch gelöscht. Ich glaube das liegt daran, dass Exel zum teil rundet und dann irgendwann ab denn nachkommastellen falsch wird. Kann man bei der Überprüfung auch runden?
Danke schon einmal im voraus, Anna

Dim i As Long 'Zellennummer
Dim z As Long 'Anzahl der Zellen

z = Cells(Rows.Count, 1).End(xlUp).Rows.Row
With ActiveSheet
For i = 3 To z Step 1
If .Cells(i, 1) <> Cells(2, 1) + (Format((i - 2) / 60 / 24)) Then Cells(i, 1).Clear
Next
End With

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Anna,

häng doch einfach mal eine Beispielmappe an, dann weiß jeder hier, was du meinst.
Und dann ist vielleicht der ein, oder andere Experte eher dazu geneigt, dir zu helfen.
Viele Grüße

Tobias

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

226_1982_bedingte-formatierung-01.png

Hallo VBAnna,

ich bin mir nicht ganz soicher ob ich dein Problem und/oder deinen Codeansatz richtig verstehe.

Datum und Uhrzeit werden in Excel intern als Zahlen dargestellt, mit denen kannst du ganz normal rechnen. Die Darstellung dieser Zahl wird über das Zellformat gesteuert. Wenn du jetzt die Werte der zwei Zellen voneinander abziehst bekommst du ebenfalls eine Zahl raus, das sollte bei einer Minute Differenz als Zahlenwert so was um die 0.0006944444 sein. Ich gebe dir recht, die ist im weiteren Nachkommastellenbereich (so ab der 11. Stelle nach dem Komma) nicht immer gleich, im VBA kannst du das mit der Funktion Round (Ausdruck,[AnzahlDezimalstellen]) entsprechend runden.

Du solltest in deinem Codeschnipsel aber in jedem Fall von hinten nach vorne durch deine Zellen wandern, wenn du das wie im Beispiel vorwärts machst (also von Zeile 3 Richtung unten) löscht du dir u.U. eine Zelle weg, die du im nächsten Schleifenschritt dann wieder abfragst. Wenn du dich von unten nach oben arbeitest passiert das nicht.

Falls du lieber Beispielcode hast wäre es schön, wenn du wie Tobias angeregt hast eine einfache Beispielmappe zusammenstellst und zum Spielen hochlädst    Ich hab mal ein Beispiel mit den bedingten Formatierungen gemacht, siehe Screenshot, so hatte ich zumindest deine Aufgabenstellung verstanden.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

zunächst vermischt Du irgendwie Spalten und Zeilen in Deiner Beschreibung, so dass es (für mich) echt schwer ist, zu erkennen, was Du wirklich hast und was Du möchtest.

Ich schreibe jetzt mal, was ich verstanden habe:

In Zeile 2 (Zelle A2) steht der 02.09.2016 10:00

In jeder Zeile soll es 1 Minute weiter sein

Zeile 3 02.09.2016 10:01  =korrekt
Zeile 4 02.09.2016 10:01 = nicht korrekt SOLL: 10:02
Zeile 5 02.09.2016 10:03 = korrekt
Zeile 6 02.09.2016 10:04 = korrekt
Zeile 7 02.09.2016 10:03 = nicht korrekt SOLL: 10:05

Ich würde da nix herumrunden, sondern mit der DATEDIFF-Funktion arbeiten:

Code:

---

Sub test()
Dim i As Long 'Zellennummer
Dim z As Long 'Anzahl der Zellen

z = Cells(Rows.Count, 1).End(xlUp).Rows.Row
With ActiveSheet
For i = 3 To z Step 1

If DateDiff("n", Cells(2, 1), Cells(i, 1)) <> i - 2 Then Cells(i, 1).Clear 'Debug.Print i

Next
End With
End Sub

---

HTH, wenn nicht, s.o.: Beispielmappe bitte!

PS: @Stefan  Der TO löscht ja nicht, er cleart nur    Ansonsten hast Du natürlich Recht! Wenn gelöscht wird, dann muß man rückwärts laufen.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich danke euch allen, es hat geklappt 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP