Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Modul per vba importieren

Modul per vba importieren
17.06.2002 14:03:18
Thorn Thaler
Liebe Xl-Gemeinde,

ist das möglich? Ich habe ein elendlanges Modul (~1000LOC), das ich in einigen 100 Mappen einfügen möchte. Ich könnte mir natürlich einen Superstring bauen, und dann ein neues Modul bauen lassen, nur ist mir das verständlicherweise zu mühsam. Also wäre eine Imporierung über vba toll,

any Ideas?

LG tt

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Modul per vba importieren
17.06.2002 14:08:39
Hajo
Hallo Thorn

ich habe in meinem Archiv folgenden Beitrag gefunden, leider weiß ich nicht von wem. Vielleicht hilft es

128. Alle Dateien in einem Ordner öffnen und ein Modul einfügen
hier eine Lösung in VBA.
Auch das Öffnen wird übernommen,
die besagten Dateien müssen sich lediglich alle in einem Ordner befinden:
Sub Modul_einfügen()
Application.DisplayAlerts = False
'in diesem Ordner liegen alle Dateien
Ordner = "c:\temp\"
'dies ist das einzufügende Modul
Moduldateiname = "C:\Temp\Modul1.bas"
'so wird das Modul benannt
Modulname = "Neues_Modul"
'alle Dateien aus "Ordner" öffnen
Application.ScreenUpdating = False
TmpDat = Dir(Ordner & "*.xls")
Do While TmpDat <> ""
Workbooks.Open Ordner & TmpDat
TmpDat = Dir()
Loop
'in alle geöffnete Arbeitsmappen
'das Modul einfügen, Datei schließen mit Speicherung
On Error Resume Next
For x = 1 To Workbooks.Count
With Workbooks(Workbooks(x).Name).VBProject
.VBComponents.Import Moduldateiname
.VBComponents(Workbooks(Workbooks(x).Name).VBProject.VBComponents.Count).Name = Modulname
End With
Workbooks(x).Close True
Next x
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gruß Hajo

Anzeige
Re: Modul per vba importieren
17.06.2002 14:13:30
Thorn
Tausend Dank, also ich finde mich im Archiv noch nicht so wirklich zurecht, wiewohl ich vor jedem postings das archiv auf schon vorhandene Antworten scanne, wurde ich in diesem Fall nicht fündig...

Auf alle Fälle Danke!

Re: Modul per vba importieren
17.06.2002 14:18:15
Hajo
Hallo Thorn

dieser Beitrag ist aus meinem persönlichen Archiv. Ich komme selber mit dem Archiv von Herber nicht klar.

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige