Fehler Funktion erwartet obwohl es vorher lief

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Tuereintreter.

    Fehler Funktion erwartet obwohl es vorher lief

    Hi Leute,

    meine Suchroutine will nicht mehr obwohl sie vorher lief. Ich poste mal den Quellcode des Moduls:
    Die Stelle ist Zeile 63

    Visual Basic-Quellcode

    1. Option Explicit
    2. Public frm_Call As String
    3. Public tblKunden As Worksheet
    4. Public tblZulieferer As Worksheet
    5. Public tblPersonal As Worksheet
    7. Sub Kunden()
    8. frm_Call = "Kunden"
    9. frm_Kunden.Show
    10. End Sub
    12. Sub Zulieferer()
    13. frm_Call = "Zulieferer"
    14. frm_Kunden.Show
    15. End Sub
    17. Sub Personal()
    18. frm_Call = "Personal"
    19. frm_Kunden.Show
    20. End Sub
    22. Sub Suchen()
    23. Dim lng As Long
    24. Dim i As Integer
    25. Application.ScreenUpdating = False
    26. With frm_Kunden
    27. .ListBox1.Clear
    28. Sheets(frm_Call).Activate
    29. i = 0
    30. For lng = 3 To ActiveSheet.UsedRange.Rows.Count
    31. If InStr(LCase(Cells(lng, 1).Value), LCase(.TextBox1.Value)) > 0 Then
    32. .ListBox1.AddItem Cells(lng, 1).Value
    33. .ListBox1.Column(1, i) = Cells(lng, 2).Value
    34. .ListBox1.Column(2, i) = Cells(lng, 3).Value
    35. .ListBox1.Column(3, i) = Cells(lng, 4).Value
    36. .ListBox1.Column(4, i) = Cells(lng, 5).Value
    37. .ListBox1.Column(5, i) = Cells(lng, 6).Value
    38. .ListBox1.Column(6, i) = Cells(lng, 8).Value
    39. .ListBox1.Column(7, i) = Cells(lng, 9).Value
    40. .ListBox1.Column(8, i) = Cells(lng, 10).Value
    41. .ListBox1.Column(9, i) = Cells(lng, 11).Row
    42. i = i + 1
    43. Else
    44. End If
    45. Next lng
    46. End With
    47. frm_Kunden.Label11.Caption = frm_Kunden.Label1.Caption
    48. frm_Kunden.Label12.Caption = frm_Kunden.Label2.Caption
    49. frm_Kunden.Label13.Caption = frm_Kunden.Label3.Caption
    50. frm_Kunden.Label14.Caption = frm_Kunden.Label4.Caption
    51. frm_Kunden.Label15.Caption = frm_Kunden.Label5.Caption
    52. Application.ScreenUpdating = True
    53. End Sub
    55. Sub FelderLöschen()
    56. Dim tb As Object
    57. With frm_Kunden
    58. For Each tb In .Controls
    59. If TypeName(tb) = "TextBox" Then tb.Text = ""
    60. Next tb
    61. .ComboBox1.Text = ""
    62. End With
    63. End Sub
    65. Sub SucheName()
    66. Dim lng As Long
    67. Dim i As Integer
    68. Application.ScreenUpdating = False
    69. With frm_Kunden
    70. .ListBox1.Clear
    71. Sheets(frm_Call).Activate
    72. i = 0
    73. For lng = 3 To ActiveSheet.UsedRange.Rows.Count
    74. If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox2.Value)) > 0 Then
    75. .ListBox1.AddItem Cells(lng, 1).Value
    76. .ListBox1.Column(1, i) = Cells(lng, 2).Value
    77. .ListBox1.Column(2, i) = Cells(lng, 3).Value
    78. .ListBox1.Column(3, i) = Cells(lng, 4).Value
    79. .ListBox1.Column(4, i) = Cells(lng, 5).Value
    80. .ListBox1.Column(5, i) = Cells(lng, 6).Value
    81. .ListBox1.Column(6, i) = Cells(lng, 8).Value
    82. .ListBox1.Column(7, i) = Cells(lng, 9).Value
    83. .ListBox1.Column(8, i) = Cells(lng, 10).Value
    84. .ListBox1.Column(9, i) = Cells(lng, 11).Row
    85. i = i + 1
    86. Else
    87. End If
    88. Next lng
    89. End With
    90. Application.ScreenUpdating = True
    91. End Sub


    Ganz nebenbei, wenn ich der ListBox mehr als 9 Spalten geben wollte gab das auch immer einen Fehler. Wenn jemand eine bessere Methode hat als die obige - für Anregungen bin ich dankbar.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Tuereintreter“ ()

    Die Fehlermeldung wäre auch hilfreich.
    Ich sehe den Fehler wie auch peterfido beim Begriff Kunden. Dieser ist aber augenscheinlich nirgendwo deklariert, deshalb der Fehler. Falls es der Tabellenname ist muss natürlich die Tabelle angescprochen werden. Worksheet("Kunden").activate
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Die Fehlermeldung lautet:
    Fehler beim Kompilieren:
    Function oder Variable erwartet

    Wenn ich nur .Activate schreibe (was für mich kein Sinn ergibt) kommt:
    Fehler beim Kompilieren:
    Methode oder Datenobject nicht gefunden

    Und wenn ich wie bei der Sub Suchen() weiter oben
    worksheet("Kunden"). activate schreibe gibt es keinen Abbruch aber der String aus TextBox2 wird nicht gefunden bzw in die ListBox1 eingetragen.
    Wie gesagt Kunden.Activate hatte mal funktioniert.

    Ich habe mal den geupdated, da ich ja weiter schreibe. So wie die Sub SucheName() jetzt läuft verursacht sie keine Fehlermeldung allerdings auch kein Ergebnis. Die ListBox1 wird noch schön mit Clear gelöscht und das war es auch schon. Das gibt mir Rätsel auf da unter Suche() es genau so beginnt und brauchbare Resultate liefert.