Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

code hängt excel auf

Forumthread: code hängt excel auf

code hängt excel auf
23.08.2006 14:47:58
rouven
hallo zusammen
ohne der zuweisung in den sternchen geht es, mit bleibt excel hängen...?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 39 To 97
If (Cells(i, 2) <> "" And Cells(i, 2) >= Cells(37, 1) And Cells(i, 5) >= Cells(38, 1)) Then Exit For
Next i
[b4] = Cells(i, 2)
*[c4] = Cells(i, 3)*
End Sub

gruss
rouven
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: code hängt excel auf
23.08.2006 15:09:20
rouven
hab den fehler selber gefunden
Application.EnableEvents = False
AW: code hängt excel auf
23.08.2006 15:15:14
Luschi
Hallo rouven,
Da der Code in einer Ereignisroutine läuft und Schreiboperationen gemacht werden,
muß die Ereignisausführung abgeschalten werden.
So sollte es klappen: 
    For i = 39 To 97
If (Cells(i, 2) <> "" And Cells(i, 2) >= Cells(37, 1) And Cells(i, 5) >= Cells(38, 1)) Then
Exit For
End If
Next i
Application.EnableEvents = False
[b4].Value = Cells(i, 2).Value
[c4].Value = Cells(i, 3).Value
'weitere Schreiboperationen
Application.EnableEvents
Gruß von Luschi
aus klein-Paris
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige