Worksheet Change Fehler im Code?

Sub Worksheet_Change(ByVal Target As Range) Dim Zelle As Range On Error Resume Next Application.EnableEvents = False If Not Intersect(Target, Columns(1)) Is Nothing Then For Each Zelle In Intersect(Target, Columns(1)).Cells Next Zelle If Len(Target) 12 Then Target = "" End If End If Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Worksheet_Change(ByVal Target As Range) Dim rngZ As Range If Not Intersect(Target, Columns(1)) Is Nothing Then Application.EnableEvents = False For Each rngZ In Intersect(Target, Columns(1)).Cells If Not IsError(rngZ) Then If Len(rngZ) 12 Then rngZ.ClearContents Next rngZ Application.EnableEvents = True End If End Sub

Sub Worksheet_Change(ByVal Target As Range) Dim rngZ As Range If Not Intersect(Target, Columns(1)) Is Nothing Then Application.EnableEvents = False For Each rngZ In Intersect(Target, Columns(1)).Cells If Not IsError(rngZ) Then If Len(rngZ) 12 Then rngZ.ClearContents End If Next rngZ Application.EnableEvents = True End If End Sub

Hi Matthias,
kopierst du einen sehr großen Bereich - etwa eine ganze Spalte - auf Spalte A?
Was passiert, wenn sich Excel "verläuft"? Reagiert das Programm nicht mehr?
Oder dauert das dann nur sehr lange?
Bei mir funzt das Makro einwandfrei, auch wenn ich eine ganze Spalte kopiere.
Schneller geht das hiermit:


Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, rngZ As Range
Dim myCalc As XlCalculation
Set rngB = Intersect(Target, UsedRange, Columns(1))
If Not rngB Is Nothing Then
Application.EnableEvents = False
myCalc = Application.Calculation
Application.Calculation = xlCalculationManual
For Each rngZ In rngB.Cells
If Not IsError(rngZ) Then
If Len(rngZ)  12 Then rngZ.ClearContents
End If
Next rngZ
Application.Calculation = myCalc
Application.EnableEvents = True
End If
End Sub

Noch eine Bemerkung zu Rainers Antwort
"Das ist nicht gut, weil dein Makro bei jeder Änderung einer Zelle ausgeführt wird. Das kostet enorm viel Zeit."
Gilt das nicht immer bei Worksheet_Change()? Sollte man dieses Ereignis dann besser nie auswerten?
Es kann doch geradezu gewollt sein, dass das Makro bei jeder Eingabe läuft,
dass es den Zweck hat, falsche Werte in einem Bereich von vornherein zu verhindern?
Ein Löschmakro zu Fuß anzusteuern, kann man vergessen...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hi Rainer, :-)
zu
"For Each rngZ In rngB.Cells - Was bitte ist daran einmalig geprüft?":
Einmalig wird hier jede neue Eingabe geprüft - was ja auch sein soll.
Sicher - da steht "For Each". Aber die Schleife läuft doch nur über
rngB = Intersect(Target, UsedRange, Columns(1))
Und das sind genau die neuen Eingaben, also: Nix mit mehrmalig.
"Wenn die Daten einmal bereinigt sind, ist das Makro hinfällig und der Rest über Gültigkeit zu lösen."
Noch einmal: Mein Makro bereinigt keine bestehenden Daten. Es bereinigt nur neu eingetragene Werte,
auch wenn sie per Kopie in Spalte A kommen.
Und auch noch einmal:
Wenn Daten in Spalte A kopiert werden, versagt "Gültigkeit". Stimmt das denn nicht?
(Wenn Zellen, nicht nur Werte, in Spalte A kopiert werden,
verschwindet dabei leicht die Gültigkeitsprüfung in den Zielzellen...)
Zum Aus- und Einschalten der Berechnung:
Das ist sicher nicht angesagt, wenn Target nur aus einer oder wenigen Zellen besteht.
Ich hatte das hereingenommen für den Fall, dass Matthias einen sehr großen Bereich - etwa eine ganze Spalte -
auf Spalte A kopiert. Dann dürfte das Ausschalten beschleunigen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

286 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet Change Fehler im Code?

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

286 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread