Tabellenblatt friet und beendet sich

Holger · 2024-04-11T23:13:57+00:00

Hallo und einen schönen Abend Weist jemand vielleicht, wieso das Tabellenblatt sich automatisch schließt, wenn der Code aktiv wird? Das Blatt friet dann ein und beendet sich von selbst. Private Sub Worksheet_Change(ByVal Target As Range) If Range("B1") = 1 Then Range("B3") = Time End Sub Danke für eure Hilfe. Gruß

So wie ich das sehe, kannst du - mal abgesehen davon, dass du dir da eine Endlosschleife gebaut hast
auf die Art gleich in die Zelle B3 = Jetzt() rein schreiben.

So jedenfalls wenn ich mir den Vorgänger-Thread anschaue, denn da prüfst du nur eine Zelle und wenn da ein Eintrag gemacht wird
dann wechselt eine Zelle auf den Wert 1 und wenn da 1 steht, willst du jetzt an anderer Stelle über den Change_Event die Uhrzeit eintragen lassen.
Da aber die 1 stehen bleibt, würde bei jeder Änderung die Zeit wieder eingetragen. Willst du aber wohl nicht,
also drehst du dich da im Kreis. Endlosschleife ?

Worauf du eigentlich reagieren willst, denke ich, ist ein Wechsel des Wertes einer Zelle auf den Wert 1.
Du müsstest also wenigstens irgendwo eine Zelle haben, die dir sagt, dass der Wert war vorher anders war und jetzt auf 1 gewechselt ist.
Also prinzipiell sowas:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' hier Prüfung auf Target...

  If not (Target.Address = "$N$8") Then exit sub 

'dann

    Application.EnableEvents = False

    'Kontrolle ob "B1" sich verändert hat durch Vergleich mit Hilfszelle "B2"

    If Range("B1") > Range("B2") Then

        'neuen Wert von B1 in B2 speichern

        Range("B2") = Range("B1").Value

        If Range("B1") = 1 Then Range("B3") = Time

    End If

    Application.EnableEvents = True

End Sub

wobei du natürlich weißt, welche Zelle editiert werden muss, damit "B1" den Wert 1 annimmt.
ich habe jetzt mal angenommen, dass die Eingabezelle "N8" den Wert von "B1" triggert.

Zunächst mal hält es der TE nicht für nötig, mal in "seinen" Thread hereinzuschauen und Feedback zu geben.
Dann kommen schließlich Antworten von durchaus respektablen Usern, die mir die spärlichen Haare zu Berge stehen lassen.
Vorab mein Hinweis, dass der TE schlicht null Ahnung von Ereignismakros hat, was ja erst mal nicht schlimm ist.
Dann aber (durch die Bank!) zu empfehlen, mal eben EnableEvents = False zu implementieren, ohne eine Fehlerbehandlung durchzuführen, ist mindestens fahrlässig.
Der "Tipp" (besser die Zurechtweisung), die Bedingungen kaskadierend zu prüfen, wo ein simples And reicht, macht mich sprachlos.
Einzig der Hinweis, "die Zelle mit der 1" könnte ja auch per Formel veränderbar sein, mag zielführend sein.
Ansonsten gilt mein obiger Einzeiler mit Auswertung des Target (der schlimmstenfalls in den Debugger laufen kann aber nicht eine Eigenschaft der Application verändert).
Ab jetzt lese ich nur noch mit, es sei denn, jemand weist mir einen Fehler nach.

Tabellenblatt friet und beendet sich

Forumthread: Tabellenblatt friet und beendet sich

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Tabellenblatt friet und beendet sich

Forumthread: Tabellenblatt friet und beendet sich

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread