Autofilter mit VBA
17.05.2018 10:11:21
NewbieVBA
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
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
Anzeige