Thema Datum  Von Nutzer Rating
Antwort
Rot Makro-Code optimieren
 06.02.2011 14:27:39 Makro-Azubi2011
NotSolved
06.02.2011 16:19:59 Severus
Solved

Ansicht des Beitrags:
Von:
Makro-Azubi2011		 Datum:
06.02.2011 14:27:39		 Views:
1632		 Rating:
     
Antwort:
  Ja
Thema:
Makro-Code optimieren

Hallo!

Ich habe ein Makro, das die Zeilen durchgeht und wenn da kein wert oder eine 0 drinstehen diese ausblenden! aber wenn ich den code ausführe, dauert es ewig lange ibs die berechnung zu erfolgt ist. der code geht durch insgesamt 10 register mit knapp 250 zeilen pro register! kann ich den code irgendwie optimieren damit er schneller durchlaufen wird?

Der Code:

Private Sub CommandButton2_Click()
Dim Zelle As Range
Dim Bereich As Range
Dim Tabelle As Worksheet

Application.ScreenUpdating = False
For Each Tabelle In ThisWorkbook.Worksheets
If Not InStr("Inhaltsverzeichnis, Struktur, Parameter", Tabelle.Name) > 0 Then 'Liste der ausgenommenen Tabellen
On Error Resume Next
With Tabelle
Set Bereich = .Range(.Cells(7, 5), .Cells(.UsedRange.Rows.Count, 1))
For Each Zelle In Bereich
If Zelle.Value = 0 Or Zelle.Value = "" Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next Zelle
End With
End If
Next Tabelle
Application.ScreenUpdating = True
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro-Code optimieren
 06.02.2011 14:27:39 Makro-Azubi2011
NotSolved
06.02.2011 16:19:59 Severus
Solved