VBA-Code läßt Excel 2021 abstürzen, in 2016 jedoch O.K.

Nach einem Wechsel zu Excel 2021 bringt einer VBA-Code Excel zum Absturz.
Unter Excel 2016 tritt dieses Problem jedoch nicht auf, da funktioniert der Code einwandfrei.

Private Sub Worksheet_Activate()
Range("L25").Select
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.LargeScroll Down:=-1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AA$1" Then Exit Sub
Range("V23") = "letztes Update: " & _
Application.UserName & _
", " & _
Format(Date, "dd.mm.yy") & ", " & Format(Time, "hh:mm")
End Sub

Durch den 1. Teil wird zunächst in der Tabelle die Zelle L25 aufgewählt.

Durch den 2. Teil soll nach Eintrag eines "n" oder "j" in eine der Zellen der Tabelle mit 11 Zeilen und 22 Spalten, das entsprechende Datum und die jeweilige Uhrzeit an Position "V23" festgehalten werden. Im Moment, wo in einer Zelle ein "n" oder "j" bestätigt wird, stürzt Excel ab.

Was macht also Excel 2021 anders als Excel 2016 und wie läßt sich das Problem beheben?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Exki

ich glaube nicht das du - EnableEvents - kennst? Damit kann man die Endlos Schleife unterbinden!
Bei der Änderung in Zelle V23 wird kein weiterer Makrostart zugelassen, bis EnableEvents auf True steht.
Hinweis: Vergisst du es im Code auf True zu setzen, startet das Makro bei weiteren Eingaben nicht mehr!

Bei Range("xxxx") musst du bitte noch den Bereich angeben, in dem bei dir die Eingaben stattfinden.

mfg Piet

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("xxxx")) Is Nothing Then

   On Error GoTo Fehler

   If Target.Value = Empty Then Exit Sub

   Application.EnableEvents = False

   Range("V23") = "letztes Update: " & _

      Application.UserName & ", " & _

      Format(Date, "dd.mm.yy") & ", " & Format(Time, "hh:mm")

   Application.EnableEvents = True

End If

Exit Sub

Fehler: Application.EnableEvents = True

MsgBox "Unerwarteter Target Fehler"

End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$AA$1" Or Target.Address = "$V$23" Then Exit Sub Range("V23") = "letztes Update: " & _ Application.UserName & _ ", " & _ Format(Date, "dd.mm.yy") & ", " & Format(Time, "hh:mm") End Sub

Beliebteste Forumthreads (12 Monate)

VBA-Code läßt Excel 2021 abstürzen, in 2016 jedoch O.K.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Code läßt Excel 2021 abstürzen, in 2016 jedoch O.K.

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread