Modul exportieren und importieren

Bild

Betrifft: Modul exportieren und importieren von: Michel
Geschrieben am: 12.04.2005 09:09:21

Moin,

mit folgendem Code will ich Blätter und ein Modul meiner derzeit aktiven Mappe in eine neue Mappe kopieren. Allerdings erhalte ich den 'Fehler 9: Index außerhalb des gültigen Bereiches' bei 'ThisWorkbook.VBProject.VBComponents("basMain").Export sPath & "basMain.bas"'

Habe aber keine Ahnung warum...

Könnt ihr mir helfen bitte?

thx
Michel


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


Sub save()
Dim dummy As String
Dim strWBName As String
Dim sPath As String
Application.DisplayAlerts = False
ActiveSheet.Unprotect ("isildur")
sPath = Application.Path & "\"
ThisWorkbook.VBProject.VBComponents("basMain").Export sPath & "basMain.bas"
'Name der Mappe
    strWBName = ActiveWorkbook.Name
'Name des aktiven Blattes
   dummy = ActiveSheet.Name
   
'Blätter in einen Array einlesen
   Sheets(Array(dummy, "Listen")).Copy
   
'Modul importieren
 With ActiveWorkbook.VBProject
        .VBComponents.Import sPath & "basMain.bas"
       .VBComponents("basMain").Name = "MyModul"
End With
'Schichtblatt aktivieren
Sheets(2).Activate
'Reiter ausblenden
ActiveWindow.DisplayWorkbookTabs = False
'Speichern unter
Application.Dialogs(xlDialogSaveAs).Show
'Modul wieder löschen
Kill sPath & "MyModul.bas"
ActiveSheet.Protect ("isildur")
Workbooks(strWBName).Close
Application.DisplayAlerts = True
End Sub

Bild


Betrifft: AW: Modul exportieren und importieren von: Heiko S.
Geschrieben am: 12.04.2005 09:49:15

Hallo

die Zeile sieht eigentlich richtig aus.
Meine Vermutung Tippfehler, ist das Modul basMain wirklich vorhanden oder hat es bei dir einen anderen Namen (willst du eigentlich ein anderes exportieren ?)



Gruß Heiko

PS: Rückmeldung wäre nett !


Bild


Betrifft: AW: Modul exportieren und importieren von: Michel
Geschrieben am: 12.04.2005 10:06:19

Hi,

letztendlich hat es gefunkt. Jetzt habe ich tausend mal über den Code geschaut und den Tippfehler doch nicht gesehen *grmblIchOchse*

Ich will ganz einfach das aktive Tabellenblatt inkl. ´des Modules in eine neue Mappe kopieren.

Danke
Michel


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Modul exportieren und importieren"