Suche mit VBA Fehlermeldung
18.11.2013 20:40:20
inolan
ich brauche da mal hilfe.
Ich hatte folgenden Code zur Suche in Excel2003 benutzt, in Excel 2007 kommt eine Fehlermeldung bei "LCase" : Fehler beim Kompilieren Project oder Bibiliothek nicht gefunden.
Kann mir jemand helfen.
Schon mal Danke im Vorraus.
MfG
Ino.
Das ist der Code:
Sub Suchen()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frm_Daten
.ListBox1.Clear
Windows("SONDERFREIGABE_Nummernerfassung.xlsm").Activate
Sheets("DATEN").Activate
i = 0
For lng = 14 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 1).Value), LCase(.TextBox1.Value)) > 0 Then 'hier ist der Fehler
.ListBox1.AddItem Cells(lng, 1).Value
.ListBox1.Column(1, i) = Cells(lng, 2).Row
i = i + 1
Else
End If
Next lng
End With
frm_Daten.Doku.Caption = frm_Daten.Label1.Caption
Application.ScreenUpdating = True
End Sub