ich würde gerne eine Liste mit Hilfe eines Makros filtern. Derzeit benutze ich folgende Makro:
Sub AktuelleTasks() 'aktueller Sprint
Dim LetzteZeile As Long
LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
Application.StatusBar = "Sprints werden ausgeblendet, bitte warten !!!"
Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False
For i = 3 To LetzteZeile
If Cells(i, 30).Value Worksheets("Backlog-Sprint-Task").Range("C1").Value Then
Rows(i).Hidden = True
End If
Next i
Worksheets("Hilfe").Range("F3").Value = " aktueller Sprint"
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Sub TasksAusblenden() '3 Wochen Anzeige
Dim LetzteZeile As Long
LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
Application.StatusBar = "Sprints werden ausgeblendet, bitte warten !!!"
Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False
For i = 3 To LetzteZeile
If Cells(i, 30).Value ((Worksheets("Backlog-Sprint-Task").Range("C1").Value) + 1) Then
Rows(i).Hidden = True
End If
Next i
Worksheets("Hilfe").Range("F3").Value = "3-Wochen-Sprints"
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Leider dauern diese Makro "ewig", mit der Autofilterfunktion geht es schneller.Die Aufgabe ist, einen bestimmten Zeitraum zu zeigen. Ich habe in Zelle C1 die aktuelle Woche und in Spalte AD (#30) steht pro Zeile die Woche. Jetzt möchte ich mit Hilfe zweier Makros folgendes tun:
a) alle Zeilen zeigen der aktuellen Woche
b) alle Zeilen der letzten, aktuellen und folgenden Woche
Mein jetziger Code für b) ist:
ActiveSheet.Range("$A$2:$AZ" & LetzteZeile).AutoFilter Field:=30, Criteria1:=">=(activesheet.Range("C1").Value) - 1" _
, Operator:=xlAnd, Criteria2:=" Es kommt allerdings immer der Fehler: (Erwartet: Anweisungsende)
Leider komm ich mit den () und "" nicht ganz zurecht. Kann mir bitte jemand meinen Fehler aufzeigen?
Ich danke euch
Gruß NewbieVBA