Problem mit Code von Hans

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Problem mit Code von Hans
von: Jens
Geschrieben am: 22.09.2003 14:35:45

Hallo zusammen. Ich habe ein kleines Problem mit einem Code(154801) von Hans.
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
Bild


Betrifft: AW: Problem mit Code von Hans
von: Nike
Geschrieben am: 22.09.2003 15:17:35

Hi,
vor dem Kopieren ein
Application.enableevents=false
und danach dann wieder auf true
Wüßte aber nicht, an welcher Stelle das Ereignis
tatsächlich ausgelöst werden soll...

Bye

Nike


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Problem mit Code von Hans"