Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Jessica am November 09, 2015, 11:26:36 Vormittag

Titel: Office 2010: Excel hängt sich auf
Beitrag von: Jessica am November 09, 2015, 11:26:36 Vormittag
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
Titel: Antw:Office 2010: Excel hängt sich auf
Beitrag von: maninweb am November 11, 2015, 08:14:29 Vormittag
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ß