Office: Code per Makro in Tabelle schreiben

Flachzange7 · 14. Februar 2018

Guten Morgen *Smilie

Ich arbeite mit einem Excel Addin, das an einer Stelle ein neues Tabellenblatt mit einem Namen "Name" erstellt. Im VBA Projekt heißt es dann Tabelle17(Name) (die Tabellenzahl variiert).

Jetzt möchte ich, dass wenn das Tabellenblatt erstellt wird, ein bestimmer Code in der Tabelle gespeichert wird.

Mit folgendem Code kann ich einen Code in einer Tabelle einfügen Code:

Sub Makro_einfuegen()
'fügt in die Tabelle Tabelle1 das Makro ein
Dim x As Integer
sFile = " & aktuell & "
aktuell = ActiveWorkbook.Name
'aktuell = VBA.Left(aktuell, VBA.Len(aktuell) - 4) 'entfernt das .xls

With Workbooks(aktuell).VBProject.VBComponents("Tabelle9").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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies funktioniert jedoch nur, wenn der Name Tabelle17 lautet.

Wie beziehe ich den Code auf den Namen hinter der Tabellennummer?

Vielen Dank schon mal im voraus *Smilie *Smilie

:)

haklesoft · 15. Februar 2018

Hallo Flachzange,

ich lehne es grundsätzlich ab, in diesem Forum potentielle Hackertechniken wie das nachträgliche Einschreiben von Code zu diskutieren. *entsetzt

Das gewünschte Ergebnis lässt sich in aller Regel auch auf andere Art erreichen!

Office: Code per Makro in Tabelle schreiben

Code per Makro in Tabelle schreiben

Code per Makro in Tabelle schreiben

Code per Makro in Tabelle schreiben - Similar Threads - Code Makro Tabelle

Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen

Makro VBA: Kopieren aus Quelldatei nach Zieldatei über mehrere Tabellen

Code optimieren

Makro / VBA Hilfe Ausschneiden Kopieren und Löschen

VBA-Code für Outlook

Code optimiertung - schleife mit if verknüpfungen (Excel-Makro)

Wie VBA Code per Makro bearbeiten?