Supportnet / Forum / Tabellenkalkulation
Tabellen/Diagramme kopieren ohne Makro
Frage
Hey,
wie kann ich Tabellen und Diagramme mit eienm Makro kopieren ohne das Quellmakro mit zu speichern.
Danke vorab
Antwort 1 von Nepumuk
Hallo,
so geht's:
An Stelle von Thisworkbook muss natürlich der richtige Name (Workbooks("MeineMappe.xls")). Wenn du die Tabellen / Diagramme in eine neue Mappe kopierst, dann natürlich ActiveWorkbook. Das Makro löscht aber auch Code aus dem Klassenmodul "DieseArbeitsmappe"!!!
Gruß
Nepumuk
so geht's:
Public Sub Ereignisroutinen_loeschen()
Dim myVBC As Object
For Each myVBC In ThisWorkbook.VBProject.VBComponents
With myVBC.CodeModule
If myVBC.Type = 100 Then .DeleteLines 1, .CountOfLines
End With
Next
End Sub
An Stelle von Thisworkbook muss natürlich der richtige Name (Workbooks("MeineMappe.xls")). Wenn du die Tabellen / Diagramme in eine neue Mappe kopierst, dann natürlich ActiveWorkbook. Das Makro löscht aber auch Code aus dem Klassenmodul "DieseArbeitsmappe"!!!
Gruß
Nepumuk