Modul kopieren

Bild

Betrifft: Modul kopieren von: Peter Knierim
Geschrieben am: 15.02.2005 21:23:30

Hallo Excelfreunde
brauche mal wieder eure Hilfe.
Mit dem Auszug aus dem untenaufgeführten Code wird das Modul Telefon in die neue Arbeitsmappe kopiert. Leider funktioniert es durch meine Excelumstellung 9 nach 10 nicht mehr. Das Makro bleibt an der markierten Stelle xx stehen.

Ich weiss nicht mehr weiter bitte um Hilfe
Dank im vorraus

Gruß Peter
PS das Modul wird benötigt um aus Excel heraus zu telefonieren

'Kopiert nur die Werte in die Umschalteliste

Range("Umschaltliste").Select
Selection.Copy
Sheets("Umschalteliste").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Berechnung").Select
Application.CutCopyMode = False
Sheets("Umschalteliste").Select
ActiveCell.Select
Sheets("Umschalteliste").Select
frmSuchen.Hide
Sheets("Umschalteliste").Copy

'kopiert das Modul Telefonieren in die Umschalteliste

Dim sPath As String
sPath = Application.Path & "\"

xx
ThisWorkbook.VBProject _
.VBComponents("Telefon").Export sPath & "Telefon.bas"
Set wkb = ActiveWorkbook
With wkb.VBProject
.VBComponents.Import sPath & "Telefon.bas"
.VBComponents("Telefon").Name = "Telefon"
End With
Kill sPath & "\Telefon.bas"

Bild


Betrifft: AW: Modul kopieren von: Udo
Geschrieben am: 15.02.2005 21:37:21

Wie lautet die Fehlermeldung?

Udo


Bild


Betrifft: AW: Modul kopieren von: Peter Knierim
Geschrieben am: 15.02.2005 21:45:13

Hallo
es erscheint die meldung

Laufzeitfehler '1004'
Der programmatische Zugriff auf das Visual Basic Projekt ist nicht sicher


an dieser Stelle ist dann die Gelbmarkierung


ThisWorkbook.VBProject _
.VBComponents("Telefon").Export sPath & "Telefon.bas"



Gruß Peter


Bild


Betrifft: AW: Modul kopieren von: Udo
Geschrieben am: 15.02.2005 21:47:57

Im Menü Extras|Makro|Sicherheit Vertrauenswürdige Quellen den Haken rein bei
Zugriff auf VB-Projekt vertrauen(oder so ähnlich).

Udo


Bild


Betrifft: AW: Modul kopieren von: Peter Knierim
Geschrieben am: 15.02.2005 21:54:06

Hallo Udo
besten Dank jetzt funktioniert alles wieder

natürlich wieder nur ein Häkchen setzen

Gruß Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Modul kopieren"