Autofilter VBA
12.11.2018 09:30:06
Jehona
ich hab eine Excel-Tabelle, welche Termine pflegt.
Hier werden immer nur die Termine mit dem Datum "heute" automatisch angezeigt.
(With ActiveSheet.Range("$A$3:$L$16000")
.AutoFilter Field:=1, Criteria1:=Array(2, Date), Criteria2:="=", Operator:=xlO)
Gibt es eine Möglichkeit zu sagen, dass wenn in Spalte 13 (Dauerausweis) "Ja" hinterlegt wird, diese Zeile - trotz automatischem Filter auf das heutige Datum - jeden Tag, bis zum "Check-Out" angezeigt wird?
Anbei der aktuelle Code:
Private Sub CommandButton1_Click()
Dim z As Long
Dim found As Boolean
For z = 1 To 16000
If ActiveSheet.Cells(z, 1).Value = "" Then
found = True
ActiveSheet.Cells(z, 4).Value = TextBox1.Text
ActiveSheet.Cells(z, 3).Value = TextBox2.Text
ActiveSheet.Cells(z, 5).Value = TextBox3.Text
ActiveSheet.Cells(z, 9).Value = TextBox4.Text
ActiveSheet.Cells(z, 7).Value = ComboBox2.Text
ActiveSheet.Cells(z, 10).Value = TextBox5.Text
ActiveSheet.Cells(z, 1).Value = TextBox6.Text
ActiveSheet.Cells(z, 6).Value = ComboBox1.Text
ActiveSheet.Cells(z, 13).Value = ComboBox2.Text
With ActiveSheet.Range("$A$3:$L$16000")
.AutoFilter Field:=1, Criteria1:=Array(2, Date), Criteria2:="=", Operator:=xlOr
If ActiveSheet.Cells(z, 13).Value = "Ja" Then
End With
Exit For
End If
Next z
Unload Me
Set outObj = Nothing
Unload UserForm2
End Sub
Danke und Gruß
Jehona