| | | Xometry ermöglicht JTW Astronomy die Herstellung hochwertiger Trident Teleskophalterungen, ein Anwenderbericht
|
Autor
|
Thema: VBA Excel Daten sortieren (874 / mal gelesen)
|
VBAnna Mitglied
Beiträge: 4 Registriert: 01.09.2016
|
erstellt am: 01. Sep. 2016 14:27 <-- editieren / zitieren --> Unities abgeben:
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 |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 02. Sep. 2016 07:22 <-- editieren / zitieren --> Unities abgeben: Nur für VBAnna
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 |
StefanBerlitz Ehrenmitglied V.I.P. h.c. IT Admin (CAx)
Beiträge: 8756 Registriert: 02.03.2000 SunZu sagt: Analysiere die Vorteile, die du aus meinem Ratschlag ziehst. Dann gliedere deine Kräfte entsprechend und mache dir außergewöhnliche Taktiken zunutze.
|
erstellt am: 02. Sep. 2016 09:02 <-- editieren / zitieren --> Unities abgeben: Nur für VBAnna
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 |
runkelruebe Moderator Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 MS-Office 365 ProPlus x86 WIN7(x64)
|
erstellt am: 02. Sep. 2016 09:20 <-- editieren / zitieren --> Unities abgeben: Nur für VBAnna
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 Zellenz = 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 |
VBAnna Mitglied
Beiträge: 4 Registriert: 01.09.2016
|
erstellt am: 07. Sep. 2016 22:54 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|