LCase & Fehler beim kompilieren
13.06.2008 19:32:00
Kenjin
Ich habe ein Problem mit einem bzw. mehreren Excel-Makros.
Ich habe via Excel und ein paar kleinen Makros eine Adressverwaltung inkl. Suchfunktion gebastelt. Die Adressen stehen in einer Exceltabelle. Gesucht werden kann nach Nachname, PLZ und Ort sowie Kundennummer. Soweit lief bisher alles glatt.
Ich bekomme jedoch seit 1-2 Tagen eine Fehlermeldung wenn ich eine Suchfunktion ausführe. Dabei ist es egal, wonach ich suche. Ich erhalte immer die Fehlermeldung: Fehler beim kompilieren: Projekt oder Bibliothek nicht gefunden. Ich habe auch schon den PC gewechselt, um das gegenzuprüfen: Ergebnis bleibt gleich.
Angezeigt wird mir immer ein Fehler beim LCase. Aufbau der (aller) Suchfunktionen:
Sub OrtSuchen()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With UserForm3
.ListBox1.Clear
Sheets("DATEN").Activate
i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 7).Value), LCase(.TextBox7.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 1).Value
.ListBox1.Column(1, i) = Cells(lng, 2).Value
.ListBox1.Column(2, i) = Cells(lng, 3).Value
.ListBox1.Column(3, i) = Cells(lng, 4).Value
.ListBox1.Column(4, i) = Cells(lng, 5).Value
.ListBox1.Column(5, i) = Cells(lng, 6).Row
i = i + 1
Else
End If
Next lng
End With
Application.ScreenUpdating = True
End Sub
Wobei immer der das "erste" LCase in If InStr(LCase(Cells(lng, 7).Value), LCase(.TextBox7.Value)) > 0 Then angemarkt wird.
Was läuft schief?
Anzeige