Problem mit Code von Hans
22.09.2003 14:35:45
Jens
das zu kopierende TB enthält bei mir einen "Worksheet_Activate()-Makro"
beim kopieren soll dieses aber unterdrückt werden, also nicht ausgeführt werden. Wie muß ich da den Code ändern? Hat jemand von euch eine Idee?
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Range("B1").Value & "\test.xls"
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub
Danke für jede Hilfe Jens
Anzeige