Hallo liebes Forum,

ich komme hier gerade echt nicht weiter. Ich möchte eine Userform nutzen, um eine Tabelle mit Werten nach vorherigem filtern von Wochentagen über einen Monat hinweg befüllen.

Allerdings scheitere ich alleine schon am filtern des Wochentages. 

Der Wochentag wird hierbei über die Caption der CheckBoxen bestimmt. Danach muss ich es ja umgesetzt bekommen, das Datum in der Kopfzeile der Tabelle auszulesen und den Wochentag herauszufiltern. Und da hänge ich gerade schon fest.

Code siehe hier:

Private Sub Daten_Click()

   Dim lngZeile As Long
   
   With Worksheets("Umsatz")
      lngZeile = IIf(Len(.Cells(.Rows.Count, 6)), .Rows.Count, .Cells(.Rows.Count, 6).End(xlUp).Row)
      If Len(.Cells(lngZeile, 6).Value) > 0 Then lngZeile = lngZeile + 1
      
      Dim rng As Range
 
      If CBMo.Value = True Then
        Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBMo.Caption))
         .Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
         .Cells(lngZeile, 1).Value = TextBox_1.Value
         lngZeile = lngZeile + 1
      End If
     
      If CBDi.Value = True Then
        Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBDi.Caption))
         .Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
         .Cells(lngZeile, 1).Value = TextBox_1.Value
         lngZeile = lngZeile + 1
      End If
     
      If CBMi.Value = True Then
        Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBMi.Caption))
         .Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
         .Cells(lngZeile, 1).Value = TextBox_1.Value
         lngZeile = lngZeile + 1
      End If
     
      If CBDo.Value = True Then
        Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBDo.Caption))
         .Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
         .Cells(lngZeile, 1).Value = TextBox_1.Value
         lngZeile = lngZeile + 1
      End If
      
      If CBFr.Value = True Then
        Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBFr.Caption))
         .Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
         .Cells(lngZeile, 1).Value = TextBox_1.Value
         lngZeile = lngZeile + 1
    End If
         
   End With

End Sub

Bin für jede Hilfe dankbar :)

LG XL-Noobii