Zeit speichern.

Forumthread: Zeit speichern.

Zeit speichern.

04.09.2025 16:50:15

NicoHendrik

Hallo,

die volgende Code zeigt mir an wie lange es dauerte bis eine Schleife durchgelaufen ist. Sie funktioniert soweit gut.

Nun hätte ich es gerne, das, das Ergebnis nicht in ein MsgBox sondern immer wieder in die Zelle AA1 abgespeichert wird, denn dann kann ich sie gut
für eine Anzeige weiter verarbeiten.

' Startzeit erfassen

    Dim startZeit As Double

    Dim endZeit As Double

    Dim dauer As Double

    startZeit = Timer



HIER STEHT MEIN CODE

    

  ' Endzeit erfassen

      For j = 1 To 1000000

    Next j

    endZeit = Timer

    dauer = endZeit - startZeit

    MsgBox "Der Code wurde in " & Format(dauer, "0,0000") & " Sekunden ausgeführt."

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeit speichern.

04.09.2025 17:10:32

daniel
AW: Zeit speichern.

04.09.2025 17:13:52

NicoHendrik
AW: Zeit speichern.

04.09.2025 18:30:57

NicoHendrik
AW: Zeit speichern.

04.09.2025 18:36:28

RPP63
AW: Zeit speichern.

04.09.2025 18:47:28

NicoHendrik
AW: Zeit speichern.

04.09.2025 19:11:58

daniel
AW: Zeit speichern.

04.09.2025 20:08:15

NicoHendrik

AW: Zeit speichern.

04.09.2025 17:10:32

daniel

Ersetze Msgbox durch Range("A1").value =

AW: Zeit speichern.

04.09.2025 17:13:52

NicoHendrik

Danke Daniel,

Gruß Nico

AW: Zeit speichern.

04.09.2025 18:30:57

NicoHendrik

Hallo Daniel,

leider hab ich Probleme damit. KI sagt das es richtig ist, es kommt aber immer Laufzeitfehler 1004, Anwendungs-oder objektdefinierter Fehler.

Gruß Nico

' Endzeit erfassen

      For j = 1 To 1000000

    Next j

    endZeit = Timer

    dauer = endZeit - startZeit

    Range("AA1").Value = Format(dauer, "0.0")

AW: Zeit speichern.

04.09.2025 18:36:28

RPP63

Die KI kann ebenso wenig hellsehen wie wir.
Blattschutz gesetzt?

Gruß Ralf

AW: Zeit speichern.

04.09.2025 18:47:28

NicoHendrik

Hallo Ralf,

ich weis das KI mit Vorsicht zu genießen ist. Nein Blattschutz ist nicht gesetzt. Mit MsGBox vor Format(dauer, "0,00") klappt es??

Gruß Nico

AW: Zeit speichern.

04.09.2025 19:11:58

daniel

Ist dir aufgefallen, dass du den Formatbefehl verändert hast (2. Parameter)?
Wenn das eine klappt und das andere nicht, liegt es häufig an dem, was man geändert hat.

Wie vom Kollegen schon geschrieben, die Fehlerursachen können vielfältig sein und w.uns wir können nicht hellsehen.

Beim Schreiben in Zellen würde ich den Formatbefehl weglassen und die Zahl so wie sie ist in die Zelle schreiben und die Anzeige über das Zahlenformate der Zelle regeln.

Wenn du Nachkommastellen abschneiden willst, nutze ROUND:

RANGE("AA1").value = ROUND(Endzeit - Startzeit, 1)

Ansonsten hast du das Problem, dass Format dir die Zahl als Text im deutschen Format liefert. Excel wird aber versuchen, den Wert wieder in eine Zahl zu wandeln, und dabei aber die amerikanischen Formate anwenden, weil der Wert von Excel kommt.

AW: Zeit speichern.

04.09.2025 20:08:15

NicoHendrik

Danke Daniel alles bestens jetzt.

Schönen Abend noch
Nico

Forumthread: Zeit speichern.

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread