Mehrfachabfrage in einer IF-Bedingung

  • Sonstige

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

    Mehrfachabfrage in einer IF-Bedingung

    Hi,
    melde mich früher als mir recht ist, aber wenn der Schuhe drückt...

    Also ich hänge jetzt bei einer Mehrfachabfrage

    Quellcode

    1. If Not sLRUCode1(i)= Cells(sZeile, 23) Or Cells(sZeile, 25) Or Cells(sZeile, 27) Or Cells(sZeile, 29) Then


    die Fehlermeldung die der Compiler scheißt ist folgende:

    Quellcode

    1. Laufzeitfehler '13'
    2. Typen unverträglichkeit


    Merkwürdigerweise funktioniert das Ganze ohne Probleme wenn ich nur eine Bedingung nehme
    z.B. If Not sLRUCode1(i)= Cells(sZeile, 23) Then

    Beim Debuggen makiert er mir die oben genannte Zeile.
    Ich hoffe, dass ihr mit weiterhelfen könnte.

    sLRUCode1 --> String
    i --> Integer
    sZeile --> String

    Hallo Hell666,

    leider muss ich immer wieder dasselbe erwähnen... kein lauffähiger Quelltext

    Bitte teste mein Bsp aus und versuche es in dein Problem einzubauen:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Sub test01()
    4. Dim oWks As Worksheet
    5. Dim strTest As String
    6. Dim i As Long
    7. Set oWks = ActiveWorkbook.Worksheets(1)
    8. 'Such-Wort
    9. strTest = "geheim"
    10. 'Durchlaufe die Zeile 1 bis 5
    11. For i = 1 To 5
    12. 'Wenn Spalte 1 und Spalte 2 den Eintrag nicht enthalten mache etwas
    13. If Not strTest = oWks.Cells(i, 1) Or Not strTest = oWks.Cells(i, 2) Then
    14. 'Färbe die beiden Zellenhintergründe in blau
    15. oWks.Range(oWks.Cells(i, 1), oWks.Cells(i, 2)).Interior.ColorIndex = 5
    16. End If
    17. Next i
    18. Set oWks = Nothing
    19. End Sub
    21. Sub test02()
    22. Dim oWks As Worksheet
    23. Dim strTest As String
    24. Dim i As Long
    25. Set oWks = ActiveWorkbook.Worksheets(1)
    26. 'Such-Wort
    27. strTest = "geheim"
    28. 'Durchlaufe die Zeile 1 bis 5
    29. For i = 1 To 5
    30. 'Wenn Spalte 1 und Spalte 2 den Eintrag nicht enthalten mache etwas
    31. If Not (strTest = oWks.Cells(i, 1) And strTest = oWks.Cells(i, 2)) Then
    32. 'Färbe die beiden Zellenhintergründe in blau
    33. oWks.Range(oWks.Cells(i, 1), oWks.Cells(i, 2)).Interior.ColorIndex = 5
    34. End If
    35. Next i
    36. Set oWks = Nothing
    37. End Sub


    sZeile ist bei dir ein String, dabei wirst du doch kaum einen String übergeben, oder? Bitte beachte auch dir genaue Verwendung der logischen Operatoren.

    Gruß Markus

    na wenn ich denn gesammten code posten würde, würde das doch recht lang werden und im moment ist dort noch recht viel müll drin. die eine und andere sache ist auch noch nicht richtig gecodet (sehr schlecht geschreiben).
    was ich jetzt wissen wollte hast du mir aber beantwortet:
    If Not strTest = oWks.Cells(i, 1) Or Not strTest = oWks.Cells(i, 2) Then

    bloß mit der logik die da hintersteckt kommeich noch nicht so mit zurecht, aber wird schon^^
    das mit sZeile hab ich jetzt geändert, war noch so ein "bad code" --> merci

    okay, Problem existiert immernoch.
    Kann zwar jetzt den ersten Wert (1. Durchlauf)vergleichen z.B.
    bei
    If Not sLRUCode1(i)= Cells(iZeile, 23) Or Cells(iZeile, 25) Or Cells(iZeile, 27) Or Cells(iZeile, 29) Then
    ist es der Wert "1" dieser Stehe in der Zelle "Cells(iZeile, 23)"
    bein nächsten Durchlauf ist es der Wert "CE4" und dieser Steht in der Zelle "Cells(iZeile, 25)". Leider findet, oder sieht er sie nicht und geht in den IF-Körper rein.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Option Compare Text
    4. Sub Vergleich()
    6. Dim wTabelleBDD As Worksheet
    7. Dim wTabelleHoche As Worksheet
    8. Dim wTabelleTorsten As Worksheet
    10. Dim vZeile As Variant
    11. Dim vSuchSheet As Variant
    13. Dim sID As String
    14. Dim sFMC As String
    15. Dim sClass As String
    16. Dim sFDCE_Code As String
    17. Dim sFDCE_Type As String
    18. Dim sLRU_Code1 As String
    19. Dim sLRU_Code2 As String
    20. Dim sLRU_Status As String
    21. Dim sProbability As String
    22. Dim sLogical As String
    23. Dim sSignalBit As String
    24. Dim sResetBit As String
    25. Dim sFMCXY As String
    26. Dim sFMC_Einz(9) As String
    27. Dim sVariablen(16) As String
    28. Dim sDummy1 As String
    29. Dim sDummy2 As String
    30. Dim stest As String
    32. Dim i As Integer
    33. Dim iAktuelleZeile As Integer
    34. Dim iZeile As Integer
    36. Dim Suchbegriff As Range
    37. Dim rngTest As Range
    40. Set wTabelleBDD = ThisWorkbook.Worksheets(1)
    41. Set wTabelleTorsten = ThisWorkbook.Worksheets(2)
    42. Set wTabelleHoche = ThisWorkbook.Worksheets(3)
    44. iAktuelleZeile = 3
    46. Do Until wTabelleHoche.Cells(iAktuelleZeile, 1) = ""
    48. vZeile = wTabelleHoche.Range(Cells(iAktuelleZeile, 1), Cells(iAktuelleZeile, 16))
    50. 'sID = CStr(vZeile(1, 2))
    51. 'sFMC = CStr(vZeile(1, 3))
    52. 'sClass = CStr(vZeile(1, 4))
    53. 'sFDCE_Code = CStr(vZeile(1, 5))
    54. 'sFDCE_Type = CStr(vZeile(1, 6))
    55. 'sLRU_Code1 = CStr(vZeile(1, 7))
    56. 'sLRU_Code2 = CStr(vZeile(1, 8))
    57. 'sLRU_Status = CStr(vZeile(1, 10))
    58. 'sProbability = CStr(vZeile(1, 11))
    59. 'sLogical = CStr(vZeile(1, 12))
    60. 'sSignalBit = CStr(vZeile(1, 15))
    61. 'sResetBit = CStr(vZeile(1, 16))
    63. For i = 2 To 16 Step 1
    64. sVariablen(i) = CStr(vZeile(1, i))
    65. Next
    67. sFMCXY = Mid$(sVariablen(3), 1, 2)
    68. If sFMCXY = "XY" Then
    69. sFMCXY = Mid$(sFMC, 3, 2)
    70. For i = 1 To 9 Step 1
    71. sFMC_Einz(i) = "1" & (i) & sFMCXY
    72. Next
    73. End If
    75. With Worksheets("BDD").Range("B1:B65536")
    77. If Not sFMC_Einz(1) = "" Then
    79. For i = 1 To 9 Step 1
    80. Set Suchbegriff = .Find(sFMC_Einz(i), LookIn:=xlValues)
    82. If Not Suchbegriff Is Nothing Then
    83. iZeile = Suchbegriff.Row
    84. End If
    86. ' Anweisung was er machen soll, nachdem er den FMC (XY)gefunden hat
    87. Next
    89. End If
    91. Set Suchbegriff = .Find(What:=sVariablen(3), LookIn:=xlValues)
    93. If Not Suchbegriff Is Nothing Then
    94. iZeile = Suchbegriff.Row
    95. End If
    97. ' Anweisung was er machen soll, nachdem er den FMC gefunden hat
    98. sDummy1 = VergleichBDD(sVariablen(2), iZeile, sVariablen(4), sVariablen(5), sVariablen(6), sVariablen(7) _
    99. , sVariablen(8), sVariablen(10))
    101. End With
    104. With Worksheets("Torsten").Range("C1:C65536")
    106. If Not sFMC_Einz(1) = "" Then
    108. For i = 1 To 9 Step 1
    109. Set Suchbegriff = .Find(sFMC_Einz(i), LookIn:=xlValues)
    111. If Not Suchbegriff Is Nothing Then
    112. iZeile = Suchbegriff.Row
    113. End If
    115. ' Anweisung was er machen soll, nachdem er den FMC (XY)gefunden hat
    116. Next
    118. End If
    120. Set Suchbegriff = .Find(What:=sVariablen(3), LookIn:=xlValues)
    122. If Not Suchbegriff Is Nothing Then
    123. iZeile = Suchbegriff.Row
    124. End If
    126. ' Anweisung was er machen soll, nachdem er den FMC gefunden hat
    127. sDummy2 = VergleichTorsten(sVariablen(2), iZeile, sVariablen(4), sVariablen(5), sVariablen(6))
    129. End With
    131. iAktuelleZeile = iAktuelleZeile + 1
    132. Loop
    134. End Sub

    Visual Basic-Quellcode

    1. Function VergleichBDD(sIDHoche, iZeile, sClassBDD, sFDCE_Code, sFDCE_Type, sLRU_Code1, sLRU_Code2, sLRU_Status) As String
    2. Dim sIDZeile As String
    3. Dim sIDBDD As String
    4. Dim sIDBDD1() As String
    5. Dim sClass() As String
    6. Dim sLRUCode1() As String
    7. Dim sLRUCode2() As String
    8. Dim sLRUStatus() As String
    9. Dim sMerkerTreffer As String
    11. Dim stest As String
    13. Dim i As Integer
    14. Dim itest As Integer
    17. Sheets("BDD").Select
    19. ' ID Vergleich
    20. sIDBDD = Cells(iZeile, 22)
    21. sIDBDD1() = Split(sIDBDD, ",")
    22. For i = 0 To UBound(sIDBDD1, 1) Step 1
    23. If Mid$(sIDBDD1(i), 1, 2) = "ID" Then
    24. sIDBDD1(i) = Mid$(sIDBDD1(i), 3, 4)
    25. End If
    26. sIDBDD1(i) = LTrim(sIDBDD1(i))
    27. If Not sIDHoche = sIDBDD1(i) Then ' Fehleranzeige funktioniert nicht
    28. sMerkerTreffer = "1"
    29. End If
    30. Next
    32. ' Class Vergleich
    33. sClass() = Split(sClassBDD)
    34. Select Case CInt(sClass(1))
    35. Case Is = 0
    36. sClass(0) = Cells(iZeile, 5)
    37. If Not sClass(0) = "Yes" Then
    38. sMerkerTreffer = sMerkerTreffer & "1"
    39. ' Fehlerbehandlung, z.B. Zelle makieren
    40. End If
    41. Case Is = 1
    42. sClass(0) = Cells(iZeile, 6)
    43. If Not sClass(0) = "Yes" Then
    44. sMerkerTreffer = sMerkerTreffer & "1"
    45. ' Fehlerbehandlung, z.B. Zelle makieren
    46. End If
    47. Case Is = 4
    48. sClass(0) = Cells(iZeile, 6)
    49. If Not sClass(0) = "Yes" Then
    50. sMerkerTreffer = sMerkerTreffer & "1"
    51. ' Fehlerbehandlung, z.B. Zelle makieren
    52. End If
    53. Case Is = 5
    54. sClass(0) = Cells(iZeile, 6)
    55. If Not sClass(0) = "Yes" Then
    56. sMerkerTreffer = sMerkerTreffer & "1"
    57. ' Fehlerbehandlung, z.B. Zelle makieren
    58. End If
    59. Case Is <> 0 Or 1 Or 4 Or 5
    60. ' Die Fehlerklasse ist nicht zulässig
    61. End Select
    63. ' FDCE_Code Vergleich
    64. If Not sFDCE_Code = Cells(iZeile, 64) Then
    65. If Not sFDCE_Code = "N/A" And Cells(iZeile, 64) = "" Then
    66. ' Fehlerbehandlung wenn die Werte nicht übereinstimmen
    67. End If
    68. End If
    70. ' sFDCE_Type Vergleich
    71. If Not sFDCE_Type = Cells(iZeile, 65) Then
    72. If Not sFDCE_Code = "N/A" And Cells(iZeile, 65) = "" Then
    73. ' Fehlerbehandlung
    74. End If
    75. End If
    77. ' sLRU_Code1 Vergleich
    78. sLRUCode1() = Split(sLRU_Code1, ",")
    79. For i = 0 To UBound(sLRUCode1, 1) Step 1
    80. sLRUCode1(i) = LTrim(sLRUCode1(i))
    81. sLRUCode1(i) = Hex(CInt(sLRUCode1(i))) ' Dezimalzahl nach Hexadezimal umwandeln
    82. If Len(sLRUCode1(i)) > 1 Then
    83. Select Case sLRUCode1(i)
    84. Case Is = 2
    85. sLRUCode1(i) = "00" & sLRUCode1(i)
    86. Case Is = 3
    87. sLRUCode1(i) = "0" & sLRUCode1(i)
    88. End Select
    89. End If
    90. If Not sLRUCode1(i) = Cells(iZeile, 23) Or sLRUCode1(i) = Cells(iZeile, 25) Or _
    91. sLRUCode1(i) = Cells(iZeile, 27) Or sLRUCode1(i) = Cells(iZeile, 29) Then
    92. Cells(1, 1).Select
    93. ' Fehlerbehandlung
    94. End If
    95. Next
    97. ' sLRU_Code2 Vergleich
    98. sLRUCode2() = Split(sLRU_Code2, ",")
    99. For i = 0 To UBound(sLRUCode2, 1) Step 1
    100. sLRUCode2(i) = LTrim(sLRUCode2(i))
    101. sLRUCode2(i) = Hex(CInt(sLRUCode2(i))) ' Dezimalzahl nach Hexadezimal umwandeln
    102. If Len(sLRUCode2(i)) > 1 Then
    103. Select Case sLRUCode2(i)
    104. Case Is = 2
    105. sLRUCode2(i) = "00" & sLRUCode2(i)
    106. Case Is = 3
    107. sLRUCode2(i) = "0" & sLRUCode2(i)
    108. End Select
    109. End If
    110. 'If Not sLRUCode2(i) = Cells(iZeile, 23) Or sLRUCode2(i) = Cells(iZeile, 25) _
    111. 'Or sLRUCode2(i) = Cells(iZeile, 27) Or sLRUCode2(i) = Cells(iZeile, 29) Then
    112. 'Cells(1, 1).Select
    113. ' Fehlerbehandlung
    114. 'End If
    115. Next
    117. ' sLRU_Status Vergleich
    118. sLRUStatus() = Split(sLRU_Status, ",")
    119. For i = 0 To UBound(sLRUStatus, 1) Step 1
    120. sLRUStatus(i) = LTrim(sLRUStatus(i))
    121. If Not sLRUStatus(i) = Cells(iZeile, 31) Or Not sLRUStatus(i) = Cells(iZeile, 33) _
    122. Or sLRUStatus(i) = Cells(iZeile, 35) Or sLRUStatus(i) = Cells(iZeile, 37) Then
    123. Cells(1, 1).Select
    124. ' Fehlermeldung
    125. End If
    126. Next
    129. If Not sMerkerTreffer = "1" Then
    130. ' Er läuft hier nur rein, wenn KEIN Fehler passiert ist.
    131. ' Egal wann der Fehler aufgetretten ist
    132. ' würde er hier reinlaufen
    133. End If
    134. VergleichBDD = sMerkerTreffer
    136. End Function
    138. Function VergleichTorsten(sIDHoche, iZeile, sClassTorsten, sFDCE_Code, sFDCE_Type)
    139. Dim sIDZeile As String
    140. Dim iZeileTorsten As String
    141. Dim sIDTorsten As String
    142. Dim sIDTorsten1() As String
    143. Dim sMerkerTreffer As String
    145. Dim i As Integer
    147. Sheets("Torsten").Select
    149. ' ID Vergleich
    150. sIDTorsten = Cells(iZeile, 2)
    151. sIDTorsten1() = Split(sIDTorsten, ",")
    152. For i = 0 To UBound(sIDTorsten1, 1) Step 1
    153. If Mid$(sIDTorsten1(i), 1, 2) = "ID" Then
    154. sIDTorsten1(i) = Mid$(sIDTorsten1(i), 3, 4)
    155. End If
    156. sIDTorsten1(i) = LTrim(sIDTorsten1(i))
    157. If Not sIDHoche = sIDTorsten1(i) Then
    158. sMerkerTreffer = "1"
    159. End If
    160. Next
    162. ' Class Vergleich
    163. If Not sClassTorsten = Cells(iZeile, 4) Then
    164. ' Fehlerbehandlung
    165. End If
    168. ' FDCE_Code Vergleich
    169. If Not sFDCE_Code = Cells(iZeile, 5) Then
    170. ' Fehlerbehandlung
    171. End If
    173. ' sFDCE_Type Vergleich
    174. If Not sFDCE_Type = Cells(iZeile, 6) Then
    175. ' Fehlerbehandlung
    176. End If
    178. If sMerkerTreffer = "1" Then
    179. ' Zelle auswählen und anschließend kenntlich machen das hier was nicht stimmt
    180. End If
    181. VergleichTorsten = sMerkerTreffer
    182. Sheets("Hoche").Select
    183. End Function

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

    Hallo,

    leider hast du vermutlich meinen Quelltext NICHT durchgearbeitet.....
    Was machst du denn hier:
    If Not sLRUCode1(i)= Cells(iZeile, 23) Or Cells(iZeile, 25) Or Cells(iZeile, 27) Or Cells(iZeile, 29) Then


    Mit Or Cells(iZeile, 25) versuchst du heraus zu finden ob der Zellinhalt (=ein String) TRUE oder FALSE ist. Möchtest du das wirklich? Ich kenne nicht den Inhalt deiner Datei! Versuche das Problem auf weniger Codezeilen zu reduzieren. Bringe komplett lauffähigen Code, niemand kann doch wissen, was in deinem Worksheet steht.

    Bitte benutze die Tags zur übersichtlichen Darstellung von Code in diesem Forum!

    Alternativ lade die komplette Datei auf einen Webspace deiner Wahl hoch und verlinke diese Datei entsprechend.

    Wenn du Hilfe möchtest, dann bereite doch deine Frage möglichst hilfreich auf.

    Gruß Markus

    Ich schätze mal du willst das so haben:

    Visual Basic-Quellcode

    1. If Not sLRUCode1(i)= Cells(sZeile, 23) Or Not sLRUCode1(i)= Cells(sZeile, 25) Or Not sLRUCode1(i)= Cells(sZeile, 27) Or Not sLRUCode1(i)= Cells(sZeile, 29) Then


    Übrigens viel einfacher gehts auch mit ner Zählschleife...
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

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

    gähn, streck, ..., moin

    sry leute das ich jetzt erst wieder antworte aber gestern war es mir einfach zu viel geworden, einfach kein plan mehr gehabt.
    die große erkenntnis aus der erholungsphase, ich weiß wie ich es machen kann^^ nämlich mit elseif und jeweils einen Counter der in der Abfrage hochzählt.
    @ alchimist
    werde versuchen mich zu bessern, versprochen

    @ Agent
    jup das hab ich gesucht, aber das was du geschrieben hast futzt leider nicht. darauf bin ich auch schon selber gekommen und dann gescheitert :)

    @ all
    merci für eure hilfe, mal sehen wann ich euch wieder brauche

    Ohne den Quelltext durchgelesen zu haben vermute ich, daß Dein Zellinhalt nicht immer ein String ist und deswegen auch Fehler 13 Typen unverträglich produziert wird.

    Mit CStr() kannst Du beliebigen Zellinhalt in Strings umkonvertieren, dann sollte der Fehler nicht mehr auftauchen.