Copy Code umstellen auf Aktives Blatt
13.06.2006 21:55:09
Wolfgang
noch auf der Suche nach einer Möglichkeit, in einem Tabellenblatt hinterlegte Codes (Sub) in ein anderes Tabellenblatt zu kopieren, stieß ich auf untenstehenden Code. Der bewirkt aber offensichtlich, dass die Codes in ein namentlich benanntes Tabellenblatt kopiert werden. Was muß ich umstellen, wenn ich sie aus der Tabelle "Temp" in das jeweils aktive Tabellenblatt der gleichen Arbeitsmappe kopieren möchte? - Ich habe schon verschiedene Versuche gestartet, aber leider ohne Erfolg. Danke schon jetzt Allen wieder für die Hilfestellung.
Grüße - Wolfgang
Sub copy()
Dim i As Integer
Dim scode As String
With ThisWorkbook.VBProject.VBComponents("Temp").CodeModule
scode = .Lines(1, .CountOfLines)
End With
Workbooks("Mappe1").VBProject.VBComponents("Tabelle1").CodeModule.AddFromString scode
End Sub