Excel Bug - Gültigkeit i.V.m. Change-Ereignis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address(0, 0) = "D1" Then Application.EnableEvents = False .Value = Left(.Value, 1) * 8 Application.EnableEvents = True End If End With End Sub

Hi Matze,
damit da nichts Falsches hängen bleibt:
"Ich würde vermuten das der Klick auf das Dropdown des Ereignis auslöst und da in dem Moment
noch keine Auswahl in der Liste erfoglt ist, gibt es da nix zu rechnen , somit wird dieses zum Fehler führen."
Das stimmt nicht. Wieso sollte es zum Fehler führen, wenn es nix zu rechnen gibt?
Ich denke, ich hatte den Fehler anschaulich beschrieben:
"Bei Änderung von D1 wird Worksheet_Change ausgelöst. Diese Prozedur ändert D1.
Dadurch wird Worksheet_Change ausgelöst. Diese Prozedur ändert D1. Dadurch wird..."
Wodurch diese erste Änderung ausgelöst wird, ist egal. Mit Gültigkeit oder Dropdown hat das nichts zu tun.
Es reicht dass Tippen eines Wertes in D1; der Fehler tritt auch auf, wenn es für D1 keine Gültigkeitsprüfung gibt.
Den Satz
"Mit SelectionChange gehts auch , bedarf aber 2 Klicks woran man erkennt
das D1 bei sofortigen Ereigniswechsel diesen Fehler macht."
habe ich gar nicht verstanden.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
P.S. @Boris: Gräm dich nicht - auch Götter machen Fehler :-))

Hallo {Boris}, Erich, Matze,
ändere den Code mal folgendermassen ab :

Option Explicit
Dim lngZ
Private Sub Worksheet_Change(ByVal Target As Range)
lngZ = lngZ + 1
Debug.Print lngZ
With Target
If .Address(0, 0) = "D1" Then
.Value = Left(.Value, 1) * 8
End If
End With
End Sub

Hier läuft jetzt ein Zähler mit und gibt den Wert im Direktbereich aus, wie häufig sich diese Prozedur selbst aufruft.
Auf meinem PC (Win7, Excel 2010) sind das 95 Wiederholungen ohne Fehler (keine Ahnung, weshalb die Rekursion danach beendet wird ?!?) wenn man den Wert manuell eingibt und ein Abbruch mit Fehler nach 92 Wiederholungen, wenn man den Wert über das Dropdown auswählt.
Kurioserweise ist Excel beim ersten Durchlauf nach der Wertauswahl per Dropdown abgestürzt, beim erneuten Testen erscheint eine Fehlermeldung im Code und die Excel Popup-Meldung "Nicht genug Speicher für eine vollständige Anzeige" beim zweiten Durchlauf, die zwar kurz weggeklickt werden kann, dann aber immer wieder erscheint und das Weiterarbeiten in der Mappe verhindert.
Salut, NoNet

Beliebteste Forumthreads (12 Monate)

Excel Bug - Gültigkeit i.V.m. Change-Ereignis

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread