Fehlende Bibliothek?
22.09.2006 16:20:35
Josef
In meiner Fa. funktioniert untenstehender Code mit Excel 2003 anstandslos.
Zuhause erhalte ich mit Excel 2003 foolgende Fehlermeldung:
ehler beim Kompilieren:
Projekt oder bibliothek nicht gefunden.
Wo kann hier bitte der Fehler liegen?
Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
wHandle = FindWindow("ThunderDFrame", Me.Caption)
Else
wHandle = FindWindow("ThunderXFrame", Me.Caption)
End If
If wHandle = 0 Then Exit Sub
frm = GetWindowLong(wHandle, GWL_STYLE)
frm = frm Or &HC00000
SetWindowLong wHandle, -16, frmStyle
DrawMenuBar wHandle
End Sub
Danke
Josef
Anzeige