Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Code in eine andere Arbeitsmappe hinzufügen





Frage

Hallo, ich habe ein VB-Makro welches in einem Excel-Sheet (Office 2003) implementiert ist. Nach der Aktivierung lädt es ca. 500 xls-Dateien und arbeit diese ab (jeweils eine Datei öffnen, bearbeiten, speichern - nächste öffnen). Dabei wird auch ein Button erzeugt und mit einem VBA-Code belegt. Und zwar wie folgt: [code] ´Button erzeugen ActiveSheet.OLEObjects.Add( _ ClassType:="Forms.CommandButton.1", _ Link:=False, _ DisplayAsIcon:=False, _ Left:=1015, _ Top:=141, _ Width:=216, _ Height:=23).Select ´Button umbenennen ActiveSheet.OLEObjects("CommandButton1").Object.Caption = "Neuer Eintrag" ´Code auf Button legen Dim mdlWB As Object Set mdlWB = ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName) With mdlWB.CodeModule .InsertLines 3, "Private Sub CommandButton1_Click()" .InsertLines 4, " On Error Resume Next" .InsertLines 5, " Neuer_Eintrag.Show" .InsertLines 6, " On Error Goto 0" .InsertLines 7, "End Sub" End With [/code] Dies funktioniert auch immer einwandfrei. Nun wurde in unserer Firma das Office-SP2 eingespielt. Seitdem steigt das Programm jedesmal aus, wenn es an den Block kommt wo der Code auf den Button gelegt wird. Fehlermeldung: [b]Lauftzeitfehler ´-2147417848 (80010108)´ Automatisierungsfehler Das aufgerufene Objekt wurde von den Clients getrennt.[/b] Kann mir jemand diesbezüglich weiterhelfen? Danke & Gruß Milly

Antwort 1 von Hajo_Zi

Hallo Milly,

den Zugriff hast Du auf das VBA Projekt zugelassen (Extra, Makro, Sicherheit). Das müßtest Du eigentlich auch schon vorher gehabt haben.

  • Zitat:
    *Gelöscht*
    Admininfo: siehe die SN Nutzungsbedingungen.


  • Antwort 2 von Milly

    Hallo Hajo,
    nein, das ist es nicht. Die Sicherheitseinstellung steht auf "niedrig" und Zugriff auf Vusual Basic-Projekt vertrauen ist angehakt.

    Hat vielleicht noch jemande eine Idee????

    Grüße
    Milly