Office 2010: Excel hängt sich auf

[Jessica]

Hallo

Meine Excel Datei hängt sich immer komplett für mehrere Minuten auf wenn ich mein Makro eingeben 

Hat vielleicht jemand eine Idee woran das liegen könnte? Ist mein Makro falsch oder meine Datei zu umfangreich?

Mein Makro:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
With Range("A10:A150")
        .NumberFormat = "General"
        .Value = .Value
    End With
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    ws.Columns(6).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
Next
On Error GoTo 0
End Sub

Schon mal vielen Dank im Voraus!

Grüße
Jessica

[maninweb]

Hallo,

hast Du denselben Code (von da oben) in mehreren Arbeitsblättern drin? Dann dürfte es so sein, dass Du in eine Endlosschleife läufst.
Versuche mal folgendes, ungetestet:

Code: Visual Basic

1. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
2. Dim ws As Worksheet
3. On Error Resume Next
4. Application.EnableEvents = False
5. With Range("A10:A150")
6.         .NumberFormat = "General"
7.         .Value = .Value
8.     End With
9. For Each ws In ActiveWorkbook.Worksheets
10.     ws.Columns(6).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
11. Next
12. Application.EnableEvents = True
13. End Sub

Gruß