Makro für Makro kopieren
19.10.2004 20:37:29
Andre
Frage:
1. Ich habe folgendes (übrigens danke an Reinhard und Andrèl) in
VBAProjekt (PERSONL.XLS), Module, Modul1 "stehen":
Dim BildKlick As Boolean
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If BildKlick = False Then Exit Sub
BildKlick = False
ActiveSheet.Shapes("test").Top = Selection.Top
ActiveSheet.Shapes("test").Left = Selection.Left
ActiveSheet.Shapes("test").Select
Selection.Name = "verschoben"
End Sub
Sub Bildverschieben()
Selection.Name = "test"
BildKlick = True
End Sub
2. Ich möchte mit einem Makro diesen gesamten "Text" nach VBAProject (Mappennamebeliebigundimmeranders.xls), DieseArbeitsmappe, Codebereich kopieren.
3. Ich möchte noch ein Makro das das Makro was soeben in VBAProject (Mappennamebeliebigundimmeranders.xls), DieseArbeitsmappe, Codebereich kopiert wurde wieder löscht.
Ist soetwas möglich oder nicht?
Schönste Grüße
Andre
Anzeige