Hallo Zusammen,

mal wider habe ich eine Herausforderung zu meistern. Ich habe also eine Zeitreihe - viertelstunden Interval und möchte diese nur überprüfen lassen auf Somme/Winterzeit. Leider habe ich noch keine, reibungslos funktionierende Lösung gefunden.

Hier mein aktueller Code:



Mein Problem ist, dass die For Each Schleife sich unzählige Male wiederholt und somit mehr als einmal der Vorgang des kopierens durchlaufen wird - Endlosschleife.

Ich hoffe Ihr habt eine Lösung. Es soll einmal der Zeitstempel gefunden werden, dann die 4 Einträge, aus 4 Zellen kopiert werden, darunter direkt wieder, als neue Zellen eingefügt werden und Ende.

Vielen Dank schon im Voraus!

Schau mal nach als was "c" deffiniert ist.
Ich gehe davon aus das es keine Endlosschleife ist sondern das er jede Celle in der Range absucht.

Wenn es nur einmal ausgeführt werden soll warum machst du dann überhaupt ein For Each

Danny schrieb:

Es soll einmal der Zeitstempel gefunden werden

Wie soll der Zeitstempel gefunden werden, wenn keine Zellen durchlaufen werden (du willst ja keine Schleife)?

Danny schrieb:

mehr als einmal der Vorgang des kopierens durchlaufen wird

Dann gibt es wohl mehrere Zellen, die diesen Zeitstempel tragen. Wenn nur eins kopiert werden soll, dann mach nach dem Kopieren Exit For.

Danny schrieb:

For Each Schleife sich unzählige Male wiederholt

Natürlich, das hast du doch selbst gesagt:

Danny schrieb:

Range("A17:A65536")

Und zwar genau 65536-17=65519 Mal wiederholt.

Oh mein Gott...da habe ich wirklich geschlafen. Der Hinweise mit dem "Exit For" war des Rätsels Lösung.

Jetzt habe ich noch das Problem, der Selektion. Den Bereich, den er nun einmal eingefügt hat, bleibt selektiert. Habe es versucht durch eine Selektion einer anderen Zelle aber es bleibt. Habt Ihr dazu noch eine Lösung?



Danke!

Direkte Lösung: Mach vor dem End If ein Exit For
Besser, vor allem schneller:Vielleicht solltest du die doppelten Zellen noch mit A und B markieren, damit du die Stunden auseinanderhalten kannst.

P.S.: Wenn man intern mit UTC rechnet, gibt es weniger Probleme beim DST-Switch

Hallo Petaod,

leider klappt es mit deinem Code nicht. Er findet den Zeitstempel führt dann aber keinerlei Aktionen aus.

Danke für deinen Tipp. Werde ich mir ansehen.

Was mir noch aufgefallen ist, ich muss eine Prüfung machen. Die Möglichkeit besteht, dass der Anwender das Makro zweimal ausführt. Somit mache ich mir gerade gedanken, wie ich es sinnvoll anstelle. Da in diesem Fall der Zeitstempel dann 2 mal vorhanden sein muss, aber kein 3. mal vorkommen darf, scheint mir das eine Lösung zu sein. Wie seht ihr das?

Danny schrieb:

Er findet den Zeitstempel führt dann aber keinerlei Aktionen aus

Wenn er den Zeitstempel findet, ist c <> Nothing und er läuft in die If-Bedingung rein, macht also auf jeden Fall was.
Da ich dein Sheet und seine Formatierung nicht kenne, kann es schon sein, dass du den Find-Befehl noch etwas modifizieren musst.

Danny schrieb:

aber kein 3. mal vorkommen darf,

dann prüfe ab ob c.Value<>c.Offset(4).Value ist.

Hallo Zusammen,

vielen Dank noch einmal für die gestrige Unterstützung. Ich habe soweit alles umgesetzt und es funktioniert. Eine kleine Problemstellung habe ich noch. Wenn ich das folgende Makro ausführe, erhalte ich für das SUB eine Fehlermeldung

Objetvariable oder With-Blockvariable nicht festgelegt

Hier der aktuelle Code, der diesen Fehler verursacht:


Vielen Dank schon im Voraus für eure Hilfe.

Du solltest dir angewöhnen, den Code im Debugger auszuführen, damit du genauere Angaben machen kannst, wo der Fehler auftritt.

Falls sich dein Code in einem Modul befindet, kannst du nicht einfach Rows verwenden, sondern musst du die Rows-Collection noch auf das entsprechende Sheet mappen.


Deswegen verwende ich grundsätzlich den objektorientierten Ansatz und schreibe die Methoden in das Objekt, auf die sie sich beziehen.
Im konkreten Fall gehört der Code in den Worksheet-Bereich von "Vorlage".