Unauffindbarer Fehler in For-Schleife

  • Excel

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von tulla.

    Unauffindbarer Fehler in For-Schleife

    Hallo VB-Börsianer,

    ich bin neu in der VBA-Programmierung und habe mir hier nun etwas programmiert.
    Die Anwendung soll einen Mini-Buchladen in Ansätzen darstellen. Es wird nach und nach noch ausgebaut.
    Habe auch schon ein Tutorial dazu angeschaut (finde den Link jetzt leider nicht mehr), jedoch ist das Problem, dass er den Autor in der zweiten Zeile der Excel-Datei nicht findet obwohl er doch da ist.
    Suche ich nach dem Titel zu dem entsprechenden Autor (der vorher nicht gefunden wurde), so findet er das Buch.

    Könnt ihr mir vllt sagen wo hier der Fehler liegt?

    Visual Basic-Quellcode

    1. Private Sub ComboBox1_Change()
    3. End Sub
    5. Private Sub CommandButton3_Click()
    6. Dim x As Variant
    7. Z = Sheets(1).UsedRange.Rows.Count
    8. x = ComboBox2
    9. temp = 0
    10. For i = 2 To Z
    11. If Cells(i, 2) = x Then
    12. temp = 1
    13. Exit For
    14. End If
    15. Next
    16. If temp = 1 Then
    17. Unload Me
    18. zeile = i
    19. UserForm2.Show
    20. Else
    21. MsgBox "Autor ist nicht vorhanden ", vbExclamation
    22. ComboBox2 = ""
    23. End If
    24. End Sub
    26. Private Sub CommandButton1_Click()
    27. Dim x As Variant
    28. Z = Sheets(1).UsedRange.Rows.Count
    29. x = ComboBox1
    30. temp = 0
    31. For i = 2 To Z
    32. If Cells(i, 1) = x Then
    33. temp = 1
    34. Exit For
    35. End If
    36. Next
    37. If temp = 1 Then
    38. Unload Me
    39. zeile = i
    40. UserForm2.Show
    41. Else
    42. MsgBox "Buch ist nicht vorhanden ", vbExclamation
    43. ComboBox1 = ""
    44. End If
    45. End Sub
    47. Private Sub CommandButton2_Click()
    48. Unload Me
    49. End Sub
    52. Private Sub UserForm_Initialize()
    53. With ComboBox1
    54. .AddItem "Er ist wieder da"
    55. .AddItem "1913"
    56. .AddItem "Winter der Welt"
    57. .AddItem "Die Kunst des Klaren Denkens"
    58. .AddItem "Böser Wolf"
    59. .AddItem "BLUFF! Die Fälschung der Welt!"
    60. .AddItem "Überman"
    61. .AddItem "Spielball Erde"
    62. .AddItem "Der Gefangende des Himmels"
    63. .AddItem "Ziemlich beste Freunde"
    64. .AddItem "Im Tal des Fuchses"
    65. .AddItem "Der Hobbit"
    66. .AddItem "Die Welt aus den Fugen"
    67. .AddItem "Als Helmut Schmidt einmal..."
    68. .AddItem "Wir sind doch Schwestern"
    69. .AddItem "Verstehen Sie das, Herr Schmidt"
    70. .AddItem "Das Shicksal ist ein mieser Verräter"
    71. .AddItem "Jesus von Nazareth. Prolog - Die Kindheitsgeschichten"
    72. .AddItem "Ein plötzlicher Todesfall"
    73. .AddItem "Neukölln ist überall"
    74. .AddItem "Verachtung"
    75. .AddItem "Schnelles Denken, langsames Denken"
    76. .AddItem "Hundert Namen"
    77. End With
    79. With ComboBox2
    80. .AddItem "Timur Vemes"
    81. .AddItem "Florian Illies"
    82. .AddItem "Ken Follett"
    83. .AddItem "Rolf Dobelli"
    84. .AddItem "Nele Neuhaus"
    85. .AddItem "Manfred Lütz"
    86. .AddItem "Tommy Jaud"
    87. .AddItem "Claus Kleber, Cleo Pascal"
    88. .AddItem "Carlos Ruiz Zafòn"
    89. .AddItem "Philippe Pozzo di Borgo"
    90. .AddItem "Charlotte Link"
    91. .AddItem "John R.R Tolkien"
    92. .AddItem "Peter Scholl-Latour"
    93. .AddItem "Jost Kaiser"
    94. .AddItem "Anne Gesthuysen"
    95. .AddItem "Helmut Schmidt, Giovanni dir Lorenzo"
    96. .AddItem "John Green"
    97. .AddItem "Benedikt XVI."
    98. .AddItem "Joanne K. Rowling"
    99. .AddItem "Heinz Buschkowsky"
    100. .AddItem "Jussi Adler-Olsen"
    101. .AddItem "Daniel Kahnemann"
    102. .AddItem "Cecilia Ahern"
    103. End With
    105. End Sub


    Vielen Dank euch schon mal im Voraus! :)

    Da hilft wohl nur schrittweises Debuggen. Geh mal, vor allem in der Schleife, Zeile für Zeile durch und lass dir die Werte von Cells(...), i, z und x zeigen.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Ich bin anscheinend nicht befähigt den Fehler zu finden.
    Wenn ich das debugge, dann springt i auch auf 2, aber er findet den Autor am Ende trotzdem nicht.

    Kann ich die ganze Datei hier mal posten und jemand schaut sich das mal genauer an?
    Denn wie ich bemerkte findet er auch einen zweiten Autor nicht, obwohl nachm debuggen alle Titel und Autoren hinzugefügt wurden.
    Ich bin ratlos...

    Wenn ich das richtig lese, kannst das ganze auch verkürzen.
    Ich habe das in einer Form unter Excel so gelöst.

    Visual Basic-Quellcode

    1. Public x As Integer
    2. Public ListI As Integer
    4. Private Sub Workbook_Open()
    5. dim auswahl als String
    6. dim auswahl2 as string
    8. Do While Worksheets("resourcen").Cells(x, 1).Value <> ""
    9. x = x + 1
    10. auswahl = Worksheets("resourcen").Cells(x, 1).Value
    11. auswahl2=Worksheets("resourcen").Cells(x, 2).Value
    12. ComboBox1.AddItem auswahl
    13. ComboBox2.AddItem auswahl2
    14. Loop
    15. End Sub


    Hier die Wahl in der CB

    Visual Basic-Quellcode

    1. Private Sub ComboBox1_Change()
    2. ListI = ComboBox1.ListIndex
    3. ListI = ListI
    4. combobox2.text=ListI
    6. End Sub


    Ich gehe davon aus das du in CB1 den Autor hast und CB2 die Buchtitel. Durch den ersten Bereich lädts du alle Informationen in die CB´s ohne ewige Additem zu machen.
    Rekursive Suche wäre dann wie combobox1_Change() jedoch halt auf CB2

    Das geht sicher auch kürzer.

Facebook
Telefonspende