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"