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