Office: Projekt oder Bibliothek nicht gefunden

sorosch · 30. Mai 2014

Hallo,

ich habe eine Excel-Datei. Auf einem Sheet befindet sich ein Textfeld, welches beim Öffnen von Excel den Fokus erhält. Klicke ich nun irgendwo anders in das Sheet, so wird beim Textfeld ein "LostFocus" Ereignis ausgeführt.

Das ist die Funktion:

Code:

Private Sub txtSuchenStueck2_LostFocus()
On Error GoTo Fehler

Dim ix As Integer
Dim ii As Integer
Dim ib As Integer
Dim ic As Integer
Dim aiZeilen() As Integer
Dim iCount As Integer
Dim s As String
Dim itmX As ListItem
Dim sSuch As String

'Inhalte löschen
Call mLoeschen

ix = 3
iCount = 0
ReDim aiZeilen(15)

sSuch = txtSuchenStueck2.Text

If sSuch "" Then
Do
If Worksheets("Kunden").Range("B" & ix).FormulaR1C1 "" Then
If UCase(Worksheets("Kunden").Range("B" & ix)) Like "*" & UCase(sSuch) & "*" Then
aiZeilen(iCount) = ix
iCount = iCount + 1
End If
Else
Exit Do
End If
ix = ix + 1
Loop

If iCount = 1 Then
Worksheets(ActiveSheet.Name).Range("A3").FormulaR1C1 = Worksheets("Kunden").Range("D" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("A4").FormulaR1C1 = Worksheets("Kunden").Range("B" & aiZeilen(0)).FormulaR1C1 & " " & Worksheets("Kunden").Range("C" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("A5").FormulaR1C1 = Worksheets("Kunden").Range("E" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("A7").FormulaR1C1 = Worksheets("Kunden").Range("F" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("F3").FormulaR1C1 = Worksheets("Kunden").Range("A" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("F7").FormulaR1C1 = Worksheets("Kunden").Range("H" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("D27").FormulaR1C1 = Worksheets("Kunden").Range("I" & aiZeilen(0)).FormulaR1C1
Worksheets(ActiveSheet.Name).Range("A11").Activate
ElseIf iCount > 1 Then
frmSuchErgebnis.Show

For ii = 0 To UBound(aiZeilen, 1)

If aiZeilen(ii) = 0 Then Exit Sub

Set itmX = frmSuchErgebnis.lsvErgebnis.ListItems.Add
itmX.Tag = Worksheets("Kunden").Range("A" & aiZeilen(ii)).FormulaR1C1
itmX.Text = Worksheets("Kunden").Range("B" & aiZeilen(ii)).FormulaR1C1
itmX.ListSubItems.Add , , Worksheets("Kunden").Range("C" & aiZeilen(ii)).FormulaR1C1
itmX.ListSubItems.Add , , Worksheets("Kunden").Range("E" & aiZeilen(ii)).FormulaR1C1
itmX.ListSubItems.Add , , Worksheets("Kunden").Range("F" & aiZeilen(ii)).FormulaR1C1

Next ii
'frmSuchErgebnis.lsvErgebnis.SetFocus
Else
'Nichts machen
MsgBox "Es wurde keine Suchergebnis gefunden.", vbInformation, "Information"
End If
Else
'Mache Nichts
End If

Exit Sub

Fehler:
If Err.Number = 9 Then
MsgBox "Es wurden zu viele Suchergebnisse gefunden. Bitte ändern sie ihr Suchkriterium.", vbCritical, "Achtung"
Else
MsgBox Err.Number
MsgBox Err.Description
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es funktioniert ohne Probleme - auf meinem PC, auf dem ich entwickelt habe - mit Windows 7 und Office 2010.

Das krasse ist aber:
Ich habe diese Excel-Datei auf mehreren PCs mit unterschiedlichen Windows-Versionen (XP, Win 8.1) und unterschiedlichen Office-Versionen (Office 2003, 2010, 2013) ausprobiert.

Auf allen anderen PCs erhalte ich bei:

Dim itmX As ListItem

Fehler beim Kompilieren.
Projekt oder Bibliothek nicht gefunden.

Baue ich die Funktion um und entferne das "Dim itmX As ListItem", so erhalte ich bei "UCase" den selben Fehler. Also es zieht sich weiter durch, somit denke ich nicht, dass es an dem ListItem leigt, sondern an irgendetwas anderes

Ich habe die Excel-Datei als Anhang beigefügt. Es wäre super, wenn die bitte jemand mal anschauen könnte - vielleicht (hoffentlich) fehlt nur irgendwo ein Häckchen oder sonst was... Ich bin gerade echt am Verzweifeln - weil es geht ja eigentlich.

Vielen Dank
Viele Grüße
George

:)

Crazy Tom · 1. Juni 2014

Hallo

bei mir WIN7 XL2007 kommt die Meldung auch
im VBA-Editor unter Extras-Verweise sieht es so aus: siehe Anhang

wenn ich da den nicht vorhandenen Verweis weg klicke
läuft es ohne meckern durch

MfG Tom

sorosch · 1. Juni 2014

Vielen Dank erst mal.

Das hatte ich in einer anderen Version auch bereits deaktiviert - hat bei mir aber leider nichts gebracht. Ich habe es wieder deaktiviert und es erscheint jetzt diesmal an folgender Selle die oben genannte Fehlermeldung:

Code:

For ii = 0 To UBound(aiZeilen, 1)

If aiZeilen(ii) = 0 Then Exit Sub

Set itmX = frmSuchErgebnis.lsvErgebnis.ListItems.Add
itmX.Tag = Worksheets("Kunden").Range("A" & aiZeilen(ii)).FormulaR1C1
itmX.Text = Worksheets("Kunden").Range("B" & aiZeilen(ii)).FormulaR1C1
itmX.ListSubItems.Add , , Worksheets("Kunden").Range("C" & aiZeilen(ii)).FormulaR1C1
itmX.ListSubItems.Add , , Worksheets("Kunden").Range("E" & aiZeilen(ii)).FormulaR1C1
itmX.ListSubItems.Add , , Worksheets("Kunden").Range("F" & aiZeilen(ii)).FormulaR1C1

Next ii
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Liegt das doch an Windows 7? Hat Win 7 etwas, was XP und Win 8.1 nicht haben?

Sonst vielleicht noch jemand eine Idee?

Scorefun · 1. Juni 2014

Listitem (Listview) gehört zu den "Microst Windows Common Controls"
(In dem Screenshot einen drunter)
Je nach Version auf anderen Rechnern kann es da zu seltsamen Fehlverhalten kommen...(könnte hiermit (click) zusammenhängen)

sorosch · 2. Juni 2014

Echt unfassbar - auf das muss man erst mal kommen.

Ich glaube, das wars.

Ich kann dies jedoch erst am Wochenende auf den PC testen, auf dem die Excel-Datei laufen soll. Auf drei PCs habe ich das jetzt getestet und da läufts schon mal*Smilie

Ich melde mich auf jeden Fall aber nochmals hier.

Vielen Dank an euch und v.a. an Scorefun

Viele Grüße
George

Office: Projekt oder Bibliothek nicht gefunden

Projekt oder Bibliothek nicht gefunden

Projekt oder Bibliothek nicht gefunden

Projekt oder Bibliothek nicht gefunden

Projekt oder Bibliothek nicht gefunden - Similar Threads - Projekt Bibliothek gefunden

VBA Projekt - seltsames Verhalten auf zweitem Rechner

Unterstützung für ein ehrenamtliches Projekt

KFZ: Privat-km- (oder Projekt-km-) Kosten abgrenzen

Vergehensweise beim Anlegen eines DB Projekts

Fehler beim Kompilieren .. Projekt oder Bibliothek nicht gefunden .. aaah!

Projekt/Bibliothek "Date" nicht gefunden

chr -> Projekt oder Bibliothek nicht gefunden