aktives Blatt und nicht Tabelle 1 "ansteuern"
19.03.2014 05:58:55
Wolfgang
den nachfolgenden Code fand ich unter Recherche. Für einen bestimmten Zweck könnte ich ihn (natürlich angepasst/umgewandelt) gut einsetzen. Ich würde nur gerne anstelle der fest zugewiesenen Tabelle1 das jeweils aktive Tabellenblatt ansprechen. Wie müßte der Code da geändert werden?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Makro_einfuegen()
'fügt in die Tabelle Tabelle1 das Makro ein
Dim x As Integer
With ThisWorkbook.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
Anzeige