VBA Code mit Makro einfügen

Sub Makro_einfuegen() 'öffnet die ausgewählte Datei Dim varDatei As Variant varDatei = Application.GetOpenFilename() If varDatei = False Then MsgBox "Der Benutzer hat abgebrochen.", vbInformation 'Else ' MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei End If 'fügt in die Tabelle Tabelle1 das Makro ein Dim x As Integer With Workbooks(varDatei).VBProject.VBComponents("Tabelle1").CodeModule x = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines x + 1, "'dieses Makro wurde per Makro eingefügt" .InsertLines x + 2, "MsgBox ""Hallo, Hallo !!!""" End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro_einfuegen() 'öffnet die ausgewählte Datei Dim varDatei As Variant varDatei = Application.GetOpenFilename() If varDatei = False Then MsgBox "Der Benutzer hat abgebrochen.", vbInformation ' Else ' MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei End If Application.EnableEvents = False Workbooks.Open varDatei Application.EnableEvents = True 'fügt in die Tabelle Tabelle1 das Makro ein Dim x As Integer With Workbooks(ActiveWorkbook.Name).VBProject.VBComponents("Tabelle1").CodeModule x = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines x + 1, "'dieses Makro wurde per Makro eingefügt" .InsertLines x + 2, "MsgBox ""Hallo, Hallo !!!""" End With End Sub

So vielleicht

Sub copy_VBAcode()
Dim varDatei As Variant
Dim y As String
Dim i As Integer
Dim scode1 As String
Dim myVBComponents As Object
Application.DisplayAlerts = False
varDatei = Application.GetOpenFilename() ' Datei wählen
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation: Exit Sub
End If
y = Right(CStr(varDatei), InStr(1, StrReverse(CStr(varDatei)), "\") - 1) ' Dateiname
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule '--- Zeichnet den Code von  _
Tabelle1 in dieser Arbeitsmappe auf
scode1 = .Lines(1, .CountOfLines)
End With
Workbooks.Open Filename:=varDatei ' öffnet die neue arbeitsmappe
With Workbooks(y).VBProject.VBComponents("Tabelle1").CodeModule '--- Löscht den code in der  _
Neuen Arbeitsmappe in Tabelle1
.DeleteLines 1, .CountOfLines
End With
Workbooks(y).VBProject.VBComponents("Tabelle1").CodeModule.AddFromString scode1 '- fügt den  _
neunen  code ein
Workbooks(y).Save
Workbooks(y).Close
'Application.VBE.MainWindow.Visible = False 'blendet Vba aus
End Sub

Gruß Basti

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code mit Makro einfügen

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

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread