code kopieren die 2.

Sub copy_code() Dim scode As String Dim i As Integer For i = 1 To Workbooks("Mappe3.xls").Sheets.Count With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule scode = .Lines(1, .CountOfLines) End With x = Workbooks("Mappe3.xls").Sheets(i).Name Workbooks("Mappe3.xls").VBProject.VBComponents(x).CodeModule.AddFromString scode Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Einsetzungsverfahren

21.07.2004 10:13:52

peh

Ergänzend

21.07.2004 10:17:05

peh

AW: Ergänzend

21.07.2004 13:42:22

Volker

21.07.2004 14:32:06

peh

AW: XP

21.07.2004 16:39:48

Volker

Teste Mal

21.07.2004 18:29:04

peh

AW: Teste Mal

22.07.2004 15:13:27

Volker

Test

23.07.2004 09:25:51

peh

Hallo Peter,
die Freigaben sind und waren gemacht.
Hiernoch mal der code im ganzen
Sub copy_code()
Dim scode As String
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
scode = .Lines(1, .CountOfLines)
End With
Workbooks("Mappe3.xls").VBProject.VBComponents(Workbooks("Mappe3.xls").Sheets(1).CodeName).CodeModule.AddFromString scode
End Sub
kopieren möchte ich:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
< bliebiger code >
End Sub

Du hast Recht: wenn ich mit scode="willi" ;-) nur irgendwelchen Text übergebe, funktioniert's.
Vielleicht liegt es an den Schlüsselwörtern in der sub.
Jedenfalls dauert es einige Sekunden bis zum Absturz ? und wenn ich schnell genug
in der Zieltabelle, also Mappe3.Tabelle1 nachsehe, steht der code auch drin.
Und was noch besser ist: wenn ich im Editor in Mappe3 bleibe, gibt's keinen Absturz,
gehe ich zur Quelltabelle zurück, sofort.
Komisch, das kopieren von Modulen geht doch auch per string-Variable.
Rätsel über Rätsel
Hast Du noch eine Idee
Gruß
Volker

Hallo Peter,
Sorry, dass ich erst jetzt reagiere, aber iregndwie klappts mit der mail-Benachrichtigung nicht.
Ich bin im Archiv auf das Stichwort "CreateEventProc" gestoßen, war aber kein Beitrag hinterlegt. Über Google hab ich den folgenden Link gefunden:
http://www.cpearson.com/excel/vbe.htm
Da war genau, was ich suchte. Ich mach's jetzt so:


Private Sub eventprozedur_erzeugen()
With ActiveWorkbook.VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule
StartLine = .CreateEventProc("SheetSelectionChange", "Workbook") + 1
.InsertLines StartLine, _
"ziel = ActiveCell"
.InsertLines StartLine + 1, _
"If ActiveSheet.index = 1 Then"
.InsertLines StartLine + 2, _
"If Len(ActiveCell) > 1 And Len(ActiveCell) < 7 Then Sheets(ziel).Activate"
.InsertLines StartLine + 3, _
"ElseIf ActiveCell = """"Then"
.InsertLines StartLine + 4, _
"Sheets(1).Activate"
.InsertLines StartLine + 5, _
"End If"
End With
End Sub

Durch Eingabe der Stichwörter in der Klammer in der 3. Zeile wird direkt die richtige Syntax im Worksheetobjekt angelegt.
Ich erzeuge z.B. eine Ereignisprozedur im workbook für alle worksheets, die genauso funktioniert, als hätte ich sie zu Fuß eigegeben.
Einen Haken hat die Sache noch: Nach dem Einfügen des Codes in die Zieldatei öffnet sich der VBA-Editor an der entsprechenden Stelle, was den gemeinen Anwender natürlich irritieren könnte. Außerdem sollja keiner in dem Projekt rumpfuschen.
Kann ich das öffnen des Editors irgendwie unterdrücken oder ihn direkt wieder schließen?
Leider weiß ich nicht, wie ich das Fenster/die Anwendung anzusprechen habe.
Hast Du ev. noch eine Idee?
Wenn nicht, trotzdem großen Dank für deine Mühe
Gruß
Volker

Sub Uebertrag() Dim oQuelle As Workbook, oZiel As Workbook, sCopyText As String Dim iLines As Long Set oQuelle = ThisWorkbook Set oZiel = Workbooks("ziel.xls") With oQuelle.VBProject.VBComponents(oQuelle.CodeName).CodeModule sCopyText = .Lines(1, .CountOfLines) iLines = .CountOfLines 'Debug.Print sCopyText End With Application.EnableEvents = False With oZiel.VBProject.VBComponents(oZiel.CodeName).CodeModule .DeleteLines 1, .CountOfLines .AddFromString sCopyText End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread