mehre IF Abfragen werden nicht seriell verarbeitet

Hi zusammen,

ich habe 3 IF Abfragen nacheinander laufen.
Wegen seltsamen Verhaltens, habe ich in jeder eine msgbox eingebaut.

Die 3 IFs werden durchlaufen.
Eigentlich sollte nur in eines der 3 Felder Q5, T5 oder W5 ein Wert eingetragen werden, sofern in AE2 ein Wert steht.

JEdoch werden alle 3 IF Abfragen ausgeführt und AE2 erst am ende geleert.
Die Msgboxen kommen alle 3 erst am Ende nach durchlaufen aller IFs in umgekehrter Reihenfolge.
ALso erst MSGBOX 3, 2, 1...

Ich verstehe es grad nicht... jemand eine Idee?
Für mich sieht es so aus, als würde die 3 IFs nicht sauber seriell verarbeitet....



If Range("AE2").Value > "" And Range("Q5").Value = "" Then

Range("Q5").Value = Range("AE2")

Range("AE2").Value = ""

MsgBox "OK1"

End If



If Range("AE2").Value > "" And Range("T5").Value = "" Then

Range("T5").Value = Range("AE2")

Range("AE2").Value = ""

MsgBox "OK2"

End If



If Range("AE2").Value > "" And Range("W5").Value = "" Then

Range("W5").Value = Range("AE2")

Range("AE2").Value = ""

MsgBox "OK3"

End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change() Application.EnableEvents = False If Range("AE2").Value > "" Then Select Case "" Case Range("Q5").Value Range("Q5").Value = Range("AE2") MsgBox "OK1" Case Range("T5").Value Range("T5").Value = Range("AE2") MsgBox "OK2" Case Range("W5").Value Range("W5").Value = Range("AE2") MsgBox "OK3" End Select Range("AE2").Value = "" End If Application.EnableEvents = True End Sub

HI
also bei mir funktioniert dein Code so, wie du es dir wünscht, ich kann deine Probleme nicht nachvollziehen.
getestet habe ich den Code allerdings in einem normalen Makro.
hast das irgenwie anders? wie wird der Code ausgelöst? hast du eventuell Eventmakros am Start, beispielsweise das Change-Event?
dann solltest du beachten, dass die sich auch selber aufrufen können, dh dein Makro würde nochmal gestartet, wenn du das aufsführst :Range("Q5").Value = Range("AE2")

um sowas zu vermeiden gibt es den Befehl: Application.EnableEvents = False
danach werden keine Events mehr ausgelöst, dh du kannst Zellwerte änderen, ohne dass das Changemarko nochmal ausgelöst wird.
am Ende musst du dann mit Application.EnableEvents = True diese wieder aktivieren, sonst bleiben die ausgeschaltet, wenn du wieder normal mit Excel arbeitest

Application.EnableEvents = False If Range("AE2").Value > "" Then If Range("Q5").Value = "" Then Range("Q5").Value = Range("AE2"): MsgBox "OK1" ElseIf Range("T5").Value = "" Then Range("T5").Value = Range("AE2"): MsgBox "OK2" ElseIf Range("W5").Value = "" Then Range("W5").Value = Range("AE2"): MsgBox "OK3" End If Range("AE2").Value = "" End If Application.EnableEvents = True

Beliebteste Forumthreads (12 Monate)

mehre IF Abfragen werden nicht seriell verarbeitet

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehre IF Abfragen werden nicht seriell verarbeitet

11 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)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread