Code sehr langsam!
23.02.2008 12:31:00
Jan
guten morgen.
Habe eine Frage würdemich sehr über Hilfe freuen...
Habe einen VBA code der ziemlich lange läuft bis zu 35 Minuten.
Seht ihr an diesem Code mit eurem fachmänischen Auge eine möglichkeit das der code schneller läuft =?
Würde mich sehr freuen.
Der Code soll alle Zeilen ausblenden in denen #1 in Spalte 79 steht. Wenn allerdings ein #3 steht soll die Zeile eingeblendet werden.
Gruß Jan
Sub Makro7()
'Application.ScreenUpdating = False ' Bildschirmflackern wird ausgeschaltet
Dim lZeile As Long
Dim strActviveSheet As String
Rows("1:3000").Select
Range("B1").Activate
Selection.EntireRow.Hidden = False
strActivesheet = ThisWorkbook.ActiveSheet.Name
For lZeile = 7 To 3000
ThisWorkbook.Sheets(strActivesheet).Select
If Cells(lZeile, 79).Value = "#1" Then
Rows(lZeile).EntireRow.Hidden = True 'Ausblenden der Zeile
Else
If Cells(lZeile, 79).Value = "#3" Then
Cells(lZeile, 79).EntireRow.RowHeight = 16
End If
End If
ThisWorkbook.Sheets(strActivesheet).Select
Cells(1, 15).Value = lZeile
Next lZeile
ThisWorkbook.Sheets(strActivesheet).Select
Cells(1, 15).Value = ""
'Application.ScreenUpdating = True ' Bildschirm wird aktualisiert
End Sub