Office: IF Anweisung funktioniert nicht

User · 15. September 2009

Also ich hab eine total normale IF Schleife für ein kleines programm geschrieben.
Allerdings prüft vba alle Bedingungen der Schleife auch wenn die erste schon positiv erfüllt wurde.

Hier mein Code für den Sub:

Code:

Private Sub Erinnerungsmanagement_Click()

K = 2 'Abfrage der Zeifenster

Do While Not Range("A" & K) = 0

Heute = Range("T1")
Recherche = Range("D" & K)
EntgeltOut = Range("E" & K)
EntgeltIn = Range("F" & K)
AufträgeOut = Range("G" & K)
AufträgeIn = Range("H" & K)
SNetOut = Range("I" & K)
SNetIn = Range("J" & K)
ZugangsdatenIn = Range("K" & K)
ZDFOut = Range("L" & K)
ZDFIn = Range("M" & K)
DSOut = Range("N" & K)
Betrieb = Range("O" & K)
Etts = Range("P" & K)
BerichtKO = Range("Q" & K)
Archiv = Range("R" & K)

txtName = Range("A" & K)

If Recherche 5 And Betrieb > 0 Then MsgBox ("Das Ergebnis des ZDF Tickets vom Change " & txtName & " liegt noch nicht vor!") Else
If DSOut 0 And Etts 3 Then MsgBox ("Das Etts-Ticket vom Change " & txtName & " ist noch nicht versendet worden!") Else
If Betrieb > 3 And BerichtKO > 0 Then MsgBox ("Der Abschlussbericht für Klaus Oestreich von den Change " & txtName & " ist noch nicht gemacht worden!") Else
If Archiv > 0 Then Range("A" & K & ":S" & K).Font.ColorIndex = 50 Else
MsgBox ("Im Change " & txtName & " stehen momentan keine Aktionen an")

K = K + 1
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

ZeC · 16. September 2009

Versuche doch mal vorher herauszufinden welchen Wert deine geuschte Variable hat.

Zum Beispiel mit Code:

Debug.Print Recherche
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder laufe den Code schrittweise mit F8 ab.

Kann auch nicht schaden wenn du statt Code:

Recherche = Range("D" & K)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

einfach Code:

Recherche = Range("D" & K).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schreibst

User · 16. September 2009

Ich habe mal mit F8 geprüft und Obwohl er nach der ersten prüfung die erfüllt ist eine MessageBox ausgibt springt er trotz dem else in die nächste zeile und prüft wieder und gibt dann je nach wert die nächste MessageBox aus..

ZeC · 16. September 2009

Ich sehe in deinem Code auch kein End If.
Weiss leider nicht ob das so auch iwie funktionieren kann.
Versuch lieber folgendes
Code:

If Recherche
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 16. September 2009

Das ganze funktioniert ohne End If ist sogar mit End If nicht funktionstüchtig.
wenn ich mit elseif arbeite wir ja wieder jede IF Bedingung einzelnd geprüft unabhängig davon ob eine Prüfung wahr oder Falsch war oder nicht?

Ich möchte ja das der nach der ersten WAHR Prüfung die IF Anweisung Beendet.

ZeC · 17. September 2009

IHMO werden mit ElseIf die anderen Kriterien nur abgefragt wenn die erste nicht erfüllt ist. Und genau das willst du ja, oder?

EarlFred · 17. September 2009

Hallo Jemand88,

zur Erläuterung:

Folgende Codes sind bedeutungsgleich:

Code:

If Bedingung Then Anweisung1 Else Anweisung2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

If Bedingung Then
Anweisung1
Else
Anweisung2
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

End If wird also nur bei mehrzeiliger Darstellung benötigt (z. B., wenn mehrere Anweisungen auszuführen sind).

In Deinem Fall nutzt Du Darstellung 1, wobei hinter Else einfach keine weitere Anweisung steht.
Danach wird die 2. If-Then-Else-Abfrage geprüft.

Beide Zeilen sind also voneinander unabhängig.

ZeCs Ansatz mit ElseIf ist ziemlich sicher richtig.

Grüße
EarlFred

User · 17. September 2009

jetzt habe ich alles in else If umgeschrieben:

Code:

If Recherche 5 And Betrieb > 0 Then MsgBox ("Das Ergebnis des ZDF Tickets vom Change " & txtName & " liegt noch nicht vor!")
ElseIf DSOut 0 And Etts 3 Then MsgBox ("Das Etts-Ticket vom Change " & txtName & " ist noch nicht versendet worden!")
ElseIf Betrieb > 3 And BerichtKO > 0 Then MsgBox ("Der Abschlussbericht für Klaus Oestreich von den Change " & txtName & " ist noch nicht gemacht worden!")
ElseIf Archiv > 0 Then Range("A" & K & ":S" & K).Font.ColorIndex = 50
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann kommt allerdings diese Fehlermeldung:

Fehler beim Kompilieren!

Else ohne If

beim ausführen von "Erinnerungsmanagement"
Ich hab keine Ahnung woran das jetzt wieder liegen könnte?

EarlFred · 17. September 2009

Hallo Jemand88,

neben meinem Post gibt auch die OH Aufschluss.

Code:

If Recherche 5 And Betrieb > 0 Then
MsgBox ("Das Ergebnis des ZDF Tickets vom Change " & txtName & " liegt noch nicht vor!")
ElseIf DSOut 0 And Etts 3 Then
MsgBox ("Das Etts-Ticket vom Change " & txtName & " ist noch nicht versendet worden!")
ElseIf Betrieb > 3 And BerichtKO > 0 Then
MsgBox ("Der Abschlussbericht für Klaus Oestreich von den Change " & txtName & " ist noch nicht gemacht worden!")
ElseIf Archiv > 0 Then
Range("A" & K & ":S" & K).Font.ColorIndex = 50
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

User · 17. September 2009

achso danke euch allen und sorry Earl Fred hatte deinen Post übersehen jetzt funktionierts auf jedenfall !

Office: IF Anweisung funktioniert nicht

IF Anweisung funktioniert nicht

IF Anweisung funktioniert nicht

IF Anweisung funktioniert nicht

IF Anweisung funktioniert nicht

IF Anweisung funktioniert nicht - Similar Threads - Anweisung funktioniert

Button: Datensatz duplizieren mit Anweisungen

Radiobutton durch If-Anweisung ersetzen

VBA - Makro If-Anweisung in Abhängigkeit von Zellenert

Sub-Anweisung mit ArgListe nicht ausführbar(!)

Personalisieren Sie Anweisungen durch Analysieren der Leistung von Schülern und Studenten

TRANSFORM-Anweisung

2 mal If -Funktion in einer Anweisung funktioniert nicht