ich brauche mal wieder ein wenig Hilfe,
ich habe eine ActiveX Combobox "Darstell_Stahl1". In dieser gibt es 2 Optionen: "alle Werkstücke" und "nur innerhalb der letzten 14 Tagen fertiggestellte und unfertige Werkstücke". Je nachdem, welcher Eintrag in dieser ComboBox aktiviert ist, möchte ich in einer Tabelle weiter unten auf dem Blatt a) alle Zeilen einblenden oder b) wenn in Spalte15 der Wert in der Zelle "f" oder "F" beträgt UND gleichzeitig das Datum in der Spalte11 vor dem (heutigen Datum -14 Tage) liegt.
Ich habe dafür folgenden Code:
Private Sub Darstell_Stahl1_Change()
Dim LR
Dim fertig As Range
Dim fe As Range
ActiveSheet.Unprotect "suse"
If Darstell_Stahl1.Text = "alle Werkstücke" Then
ActiveSheet.Rows.Hidden = False
ActiveSheet.Rows(16).Hidden = True
Else
Exit Sub
End If
If Darstell_Stahl1.Text = "nur innerhalb der letzten 14 Tage fertiggestellte und unfertige Werkstücke" Then
With Worksheets("Aufträge").ListObjects("Aufträge1")
For Each LR In .ListRows
Set LR = LR.Range.EntireRow
If Not LR.Hidden Then
Set fertig = Intersect(LR, .ListColumns("Spalte15").Range)
Set fe = Intersect(LR, .ListColumns("Spalte11").Range)
If fertig.Value = "f" Or fertig.Value = "F" And fe.Value
Die Option "alle Werkstücke" funktioniert so, und tut genau dass, was sie soll. Für die zweite Option bekomme ich keinen Fehler angezeigt, jedoch tut sich in meiner Tabelle gar nichts.Weiß jemand woran das liegt? Ich bin auch für einen komplett neuen Ansatz offen.
Vielen Dank für Eure Zeit und Mühe.
Viele Grüße
Steve