xla einbinden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marlon,
Wie kann ich diese xla-Datei direkt in meine HauptTabelle einbinden?
Was meinst du damit?
Grundsätzlich gibt es 2 Möglichkeiten:
A) Die aktivierst deine XLAM-Datei permanent via Optionen als AddInn.
Dann stehen dir die Funktionen das AddInns nach jedem Start von Excel zur Verfügung.
B) Soll das AddInn nur im Zusammenhang mit der Hauptdatei aktiviert werden, dann muss beim Öffnen der Hauptdatei im entsprechenden Ereignismakro "Workbook_Open" das AddInn installiert/aktiviert werden.
Vor dem Schließen der Hauptdatei muss das Workbook_BeforeClose-Ereignismakro das AddInn wieder deaktivieren.
Wird die Hauptdatei nur von dir auf deinem Rechner mit dem AddInn bearbeitte oder sollen auch andere Anwender mit Datei und AddInn arbeiten?
Gruß
Franz

Hallo Marlon,
grundsätzlich kann man natürlich die in einer xla/xlam-Datei ausgelagerten VBA-Module wieder in eine Datei integrieren.
Dazu müsstest du alle VBA-Elemente unter Module, Formulare und evtl. noch Klassenmodule per Drag&Drop von der xls/xlam-Datei in deine Hauptdatei kopieren.
Zusätzlich noch -falls vorhanden- die Codezeilen unter "DieseArbeitsmappe" von xla/xlam-Datei nach Hauptdatei kopieren.
Als letzten Schritt muss dann noch die Schaltflächen/Makros der Hauptdatei anpassen, die die Userformen zur Anzeige bringen.
Ich würde an deiner Stelle aber nicht das xla/xlam in die Hauptdatei integrieren, sondern "nur" gemäß Luschis Vorschlag die xla/xlam-Datei beim Öffnen der Hauptdatei automatisch mit öffnen und vor dem Schließen der Hauptdatei wieder schließen. Dann gibt es auch eine Komplikationen mit den bereits vorhandenen Makros.
Gruß
Franz

'Code unter "DieseArbeitsmappe" der Hauptdatei
Private Const strNameXLAM As String = "XLAM_Muster.xlam" 'Name der xla/xlam-Datei - anpassen!!!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Workbooks(strNameXLAM).Close savechanges:=False
End Sub
Private Sub Workbook_Open()
Dim strVerzXLAM As String
strVerzXLAM = Application.UserLibraryPath     'Ordner mit xla/xlam-Datei - ggf. anpassen
strVerzXLAM = strVerzXLAM & Application.PathSeparator & strNameXLAM
If Dir(strVerzXLAM) = "" Then
MsgBox "Datei """ & strVerzXLAM & """ nicht gefunden", vbOKOnly, "XLA-/XLAM-Datei öffnen"
Else
Workbooks.Open strVerzXLAM
End If
End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

xla einbinden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread