gibt es die Möglichkeit, beim kopieren eines Blattes den zugehörigen VBA-Code nicht mitzukopieren? Ich lösche nach dem Kopieren Buttons aus dem Blatt, aber der Code bleibt ja bestehen.
Gruß
Robin
Sub Lösche_Ereignisprozeduren()
'Löscht Ereignisprozeduren:
For n = ThisWorkbook.VBProject.vbComponents.Count To 1 Step -1
For i = 1 To ThisWorkbook.VBProject.vbComponents(n).CodeModule.CountOfLines
If ThisWorkbook.VBProject.vbComponents(n).Type 1 And ThisWorkbook.VBProject. _
vbComponents(n).Type 3 Then _
ThisWorkbook.VBProject.vbComponents(n).CodeModule.DeleteLines 1
Next
Next
End Sub
Welcher Teil ist da für die Adressierung des Moduls (in diesem Falle also des Worksheets) zuständig?
Vielen Dank schonmal!
Robin
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Copy after:=Sheets(Sheets.Count)
ActiveSheet.OLEObjects.Delete
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe