Makro kopieren/starten
14.07.2005 13:43:02
Andreas
Brauche Rat und Tat bei folgendem Problem:
(bitte eventuell selbst probieren)
1. Im Modul "Test" steht folgendes Makro:
Sub Andreas()
Dim a As String
a = MsgBox("Bist Du ein Nashorn?!", vbYesNo, "Hallo")
If a = vbNo Then
MsgBox "Doch das bist Du!"
Else
MsgBox "Hallo Nashorn!"
End If
End Sub
2. Im Modul "Übung" steht folgendes Makro:
Sub Makrokopieren()
With ThisWorkbook.VBProject.vbComponents("test").CodeModule
J = .Lines(2, 15)
End With
ThisWorkbook.VBProject.vbComponents("Übung").CodeModule.AddFromString J
a = "
Sub abcdef ()"
ThisWorkbook.VBProject.vbComponents("Übung").CodeModule.InsertLines 1, a
'Funkt nicht !!!
Application.Run ThisWorkbook.Name & "!abcdef"
'Funkt nicht
End Sub
3. Das Makro "Makrokopieren" wird ausgeführt
4. Meldung: Makro "abcdef" wird nicht gefunden ----> Warum was tun?
5. Bitte nicht nach dem Sinn dieser Aktion fragen, ist zu kompliziert
zu erklären...
6. Danke
7. Grüße
8. Andreas