Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Modul kopieren

Modul kopieren
15.02.2005 21:23:30
Peter
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"

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Modul kopieren
Udo
Wie lautet die Fehlermeldung?
Udo
AW: Modul kopieren
15.02.2005 21:45:13
Peter
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

AW: Modul kopieren
Udo
Im Menü Extras|Makro|Sicherheit Vertrauenswürdige Quellen den Haken rein bei
Zugriff auf VB-Projekt vertrauen(oder so ähnlich).
Udo
AW: Modul kopieren
Peter
Hallo Udo
besten Dank jetzt funktioniert alles wieder
natürlich wieder nur ein Häkchen setzen
Gruß Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige