Zur Zeit habe ich ein von mir angepasstes Makro laufen welches in Spalte E das aktuelle Datum sucht und dann alle Zeilen mit älterem Datum ausblendet. Funktioniert auch soweit aber dauert meiner Meinung nach ziemlich. Gibt es eine Möglichkeit das zu beschleunigen? Vielen Dank schon mal
Gruß Sven
Code:
Private Sub Workbook_Open()
Dim lngZeile As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Worksheets("Übersicht - Personal")
For lngZeile = 4 To ws.Cells(Rows.Count, 5).End(xlUp).Row
If IsDate(ws.Cells(lngZeile, 5).Value) Then
If ws.Cells(lngZeile, 5).Value