Vba berücksichtigt Elseif nicht

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Simono.

    Vba berücksichtigt Elseif nicht



    Mein Problem ist das nicht alle elseif Zweige in der Abfrage bereücksichtigt werden woran könnte das liegen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Simono“ ()

    Simono schrieb:

    wenn ich es mit Value löse findet aber keine Prüfung statt
    Da findet sehr wohl eine Prüfung statt.
    Der Zellinhalt muss aus Excel-Sicht "wahr" sein, damit deine Abfrage zutrifft.
    Ich nehme an, dein "Wahr" resultiert sowieso auf einer in der Zelle enthaltenen boolschen Excel-Formel und nicht aus Text.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Vielen Dank also sollte ich alle "Wahr" bzw. "Falsch durch ein Value ersetzen?
    Bezieht sich auf boolsche Excel Formel und nicht auf ein Text das stimmt.
    Falls ich noch andere Optimierungen am Code durchführen sollte, bin ich für jede Änderung offen.

    Visual Basic-Quellcode

    1. Sub Unterscheidung2()
    3. For Each Regler In Bereich
    5. If Regler = "C04" And Regler.Offset(0, 27) = "Wahr" Or Regler = "C08" And Regler.Offset(0, 27) = "Wahr" _
    6. Or Regler = "C16" And Regler.Offset(0, 27) = "Wahr" Or Regler = "C32" And Regler.Offset(0, 27) = "Wahr" Or _
    7. Regler = "C02 D" And Regler.Offset(0, 27) = "Wahr" Then
    8. a = True
    9. VerModul = Range("Modul2").Copy
    10. Sheets("Versorgung").Range("Versorgungsmodul").PasteSpecial xlPasteValues
    11. PSpitze = Range("Spitzenleistung2").Copy
    12. Sheets("Versorgung").Range("F23").PasteSpecial xlPasteValues
    13. ElseIf Regler = 0 Then
    14. Exit Sub
    15. ElseIf Regler <> "C04" And Regler.Offset(0, 27) = "Wahr" Or Regler <> "C08" And Regler.Offset(0, 27) = "Wahr" _
    16. Or Regler <> "C16" And Regler.Offset(0, 27) = "Wahr" Or Regler <> "C32" And Regler.Offset(0, 27) = "Wahr" Then
    17. b = True
    18. VerModul = Range("Modul1").Copy
    19. Sheets("Versorgung").Range("Versorgungsmodul").PasteSpecial xlPasteValues
    20. PSpitze = Range("Spitzenleistung").Copy
    21. Sheets("Versorgung").Range("F23").PasteSpecial xlPasteValues
    22. End If
    23. If Regler = "C04" And Regler.Offset(0, 27) = "Wahr" Or Regler = "C08" And Regler.Offset(0, 27) = "Wahr" _
    24. Or Regler = "C16" And Regler.Offset(0, 27) = "Wahr" Or Regler = "C32" And Regler.Offset(0, 27) = "Wahr" Or _
    25. Regler = "C02 D" And Regler.Offset(0, 27) = "Wahr" Then
    26. myarr(1) = (Regler.Value)
    27. End If
    28. If myarr(1) <> "C04" And Regler.Offset(0, 27) = "Wahr" Or myarr(1) <> "C08" And Regler.Offset(0, 27) = "Wahr" Or myarr(1) <> "C16" And Regler.Offset(0, 27) = "Wahr" _
    29. Or myarr(1) <> "C32" And Regler.Offset(0, 27) = "Wahr" Or myarr(1) <> "C02 D" And Regler.Offset(0, 27) Or myarr(2) = 0 And Regler.Offset(0, 27) = "Wahr" Then
    30. myarr(2) = (Regler.Value)
    31. End If
    32. If myarr(1) = "C04" And a = True And myarr(2) <> "C04" And b = True Or myarr(1) = "C08" And a = True And myarr(2) <> "C08" And b = True Or _
    33. myarr(1) = "C16" And a = True And myarr(2) <> "C16" And b = True Or myarr(1) = "C32" And a = True And myarr(2) <> "C32" And b = True Or _
    34. myarr(1) = "C02 D" And a = True And myarr(2) <> "C02 D" And b = True Then
    35. MsgBox "g"
    36. myarr(1) = 0
    37. myarr(2) = 0
    38. a = False
    39. b = False
    40. Eintrag = "Falsch"
    41. Regler = 0
    42. Range("AF8") = "Falsch"
    43. Range("AF9") = "Falsch"
    44. Range("AF10") = "Falsch"
    45. Range("AF11") = "Falsch"
    46. Range("AF12") = "Falsch"
    47. Range("AF13") = "Falsch"
    48. Range("AF14") = "Falsch"
    49. Range("AF15") = "Falsch"
    50. Range("AF16") = "Falsch"
    51. Range("AF17") = "Falsch"
    52. Exit For
    53. End If
    55. Next Regler
    57. c = False
    59. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Simono“ ()

    Simono schrieb:

    sollte ich alle "Wahr" bzw. "Falsch durch ein Value ersetzen?
    Die "Wahr" durch ein .Value ersetzen. Also z.B. If myarr(1) <> "C04" And Regler.Offset(0, 27).Value
    "Falsch" habe ich als Abfrage keine gesehen; die müsstest du mit Not abfragen: If myarr(1) <> "C04" And Not Regler.Offset(0, 27).Value

    Und da wo die sie von Hand setzt, verwende nicht den Text, sondern ein Boolean.
    Range("AF17").Value = False

    Dass du das .Value schreibst, ist nicht zwingend notwendig, weil .Value die Default-Property von Range ist.
    (Range("AF17") ist implizit derselbe Ausdruck wie Range("AF17").Value)
    Aber es gehört einfach zu sauberen Programmierung, dass du die Property mit angibst.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook