Makro läuft zu langsam
08.08.2014 10:20:04
Andreas
kann sich jemand von Euch mal diesen Code anschauen und mir sagen warum dieser Code in meiner ExcelDatei ca. 8MB sehr langsam läuft.
Sub DatenAusblenden()
Application.ScreenUpdating = False 'Bildschirm wird ausgeschaltet dami flackern verhindert _
wird
Dim i As Integer
Dim VonSpalte As Integer
Dim BisSpalte As Integer
Dim StartDatum As Range
Dim EndDatum As Range
Dim StartMonat As Range
Dim EndMonat As Range
Set StartDatum = Range("C11")
Set EndDatum = Range("E9")
Set StartMonat = Range("B11")
Set EndMonat = Range("C11")
VonSpalte = 6 'Spalte "Zeitraum Von" als Nummer
BisSpalte = 7 'Spalte "Zeitraum Bis" als Nummer
For i = 14 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'ab Zeile 14 bis _
_
letzte belegte Zelle
If Cells(i, VonSpalte) = EndMonat) Or Cells(i, VonSpalte) >= StartMonat And (Cells(i, _
BisSpalte)
Ich spreche diesen Code über einen Command Button im aktiven Sheet an.
Dieser Code selbst liegt im Modul1.
Es sollen im aktiven Sheet damit definierte Zeilen ausgeblendet werden.
So läuft das ganze ja genau so wie ich es haben möchte nur eben sehr langsam
Brauche echt dazu Hilfe
liebe Grüße Andreas