AW: Bibliotheken einbinden
16.08.2005 10:17:02
WebViper
Hallo,
liegt dann der Fehler wo anders? Also meiner meinung handelt es sich um die MS Office 11.0 Object Lib.
Bei mir funktioniert die Datei einwandfrei, ich leg sie auf einem Laufwerk ab und wenn jemand anders zugreift bekommt derjenige einen Kompilierungsfehler.
Wenn ich bei demjenigen die Libraries neu setze läuft der Code auf einmal problemlos durch...
Ich wüsste nicht, woran es sonst liegen sollte.
Probleme macht dieser Code:
'********************************************************************************************
' Beim Öffnen wird die Tastaturkombination und die Report-CommandBar definiert
'********************************************************************************************
Private Sub Workbook_Activate()
'On Error Resume Next
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Application.MacroOptions macro:="QuickCheck", _
Description:="", ShortcutKey:="q"
--> For Each oPopUp In Application.CommandBars(1).Controls
--> If oPopUp.Caption = "Report-Funktionen" Then
--> oPopUp.Delete
--> End If
Next
--> Set oPopUp = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=10, ID:=123456789)
--> oPopUp.Caption = "Report-Funktionen"
--> oPopUp.Visible = True
--> Set oBtn = oPopUp.Controls.Add
--> With oBtn
--> .Caption = "QuickCheck <Strg+Q>"
--> .Style = msoButtonCaption
--> .OnAction = "QuickCheck"
End With
End Sub
'********************************************************************************************
' Beim Schließen wird die Report-Commandbar wieder entfernt
'********************************************************************************************
Private Sub Workbook_Deactivate()
--> Dim oPopUp As CommandBarPopup
--> For Each oPopUp In Application.CommandBars(1).Controls
--> If oPopUp.Caption = "Report-Funktionen" Then
--> oPopUp.Delete
End If
Next
End Sub
Eine andere Idee?
Danke!
WebViper
