VBA kopieren mittels Intersect
27.10.2021 11:41:14
FloST
in meiner Datei habe ich eine UserForm programmiert, in der ich alle Spalten in einem Zeitraum von Zeile X nach Zeile Y kopieren kann.
https://www.herber.de/bbs/user/148820.xlsm
Die User Form wird mittels Klick auf den CommandButton1 ganz unten ausgeführt.
Nun möchte ich, dass in dem ausgewählten Zeitraum nur die Spalten ersetzt werden, die auch den ausgewählten Wochentagen entsprechen z.B. Dienstag - hierfür habe ich die Kontrollkästchen angelegt.
Meine Idee wäre, die angewählten Wochentage vergleichen mit der Zeile 2 und das dann als weitere Argumente im Intersect Befehl anzuführen.
Dies z.B. über die Funktion WorksheetFunction.Match, allerdings bisher ohne Erfolg.
Bin ich hier sowieso auf dem Holzweg und es gibt eine einfachere Variante, oder hat mir jemand einen Tipp wie ich diese Funktion richtig einbaue?
Hier nochmal der Code:
Private Sub CommandButton1_Click()
Dim S1 As Long
Dim S2 As Long
If ComboBox1.ListIndex = -1 Then
MsgBox "Keine Zeile ausgewählt!", vbCritical
Exit Sub
End If
If ComboBox2.ListIndex = -1 Then
MsgBox "Keine Vorlage ausgewählt!", vbCritical
Exit Sub
End If
If CDate(TextBox1.Value) > WorksheetFunction.Max(Rows(3)) Then
MsgBox "Datum 'von' liegt nicht im Bereich!", vbCritical
Exit Sub
End If
If CDate(TextBox2.Value) > WorksheetFunction.Max(Rows(3)) Then
MsgBox "Datum 'bis' liegt nicht im Bereich!", vbCritical
Exit Sub
End If
If CDate(TextBox1.Value) SG Flo!