AutoFilter per VBA: kopiere Zeilen eines Monats

Hallo Excel-Profis,
ich möchte gerne aus einer Datenbank Zeilen herausschneiden. Es soll vom Monat abhängig sein, welche Zeilen ausgeschnitten werden sollen.
Mein Ansatz ist nun, dies über einen AutoFilter per VBA zu lösen.
Der Anwender soll später auf einem UserForm das Jahr und den Monat auswählen können. Abhängig davon, soll in einer Tabelle nach diesem Monat im Jahr gefiltert werden. Anschließend sollen die gefundenen Zeilen in eine zweite Tabelle kopiert werden. Anbei dazu meine Beispieldatei.
https://www.herber.de/bbs/user/124484.xlsm
Ich habe für den Code des Commandbuttons bereits probiert, alle Einträge des Februars 2018 zu finden. Die Zeile Code habe ich mit dem Makrorekorder aufgezeichnet.

Sheets("Tabelle1").Range("$A$1:$B$23").AutoFilter Field:=1, _
Criteria1:=">=01.02.2018", Operator:=xlAnd, Criteria2:="

Händisch funktioniert diese Vorgehensweise einwandfrei. Beim Klick auf den Button erscheint jedoch kein einziges gefundenes Ergebnis in der gefilterten Liste.
Das Ganze soll wie zu Anfang beschrieben natürlich auch noch variabel (abhängig von Monat und Jahr) werden. Hat jemand eine Idee?
Viele Grüße
Felix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
war ja klar, dass es wieder so etwas simples ist, woran ich festhänge.

Private Sub cmdKopieren_Click()
'Kopiere alle Zeilen der ausgewählten Monat/Jahr Kombi in Tabelle2
Dim StartDat As String
Dim EndDat As String
Monat = cboMonat.Text
Jahr = cboJahr.Text
Select Case Monat
Case "Januar":
StartDat = "01/01/" & Jahr
EndDat = "02/01/" & Jahr
Case "Februar":
StartDat = "02/01/" & Jahr
EndDat = "03/01/" & Jahr
Case "März":
StartDat = "03/01/" & Jahr
EndDat = "04/01/" & Jahr
Case "April":
StartDat = "04/01/" & Jahr
EndDat = "05/01/" & Jahr
Case "Mai":
StartDat = "05/01/" & Jahr
EndDat = "06/01/" & Jahr
Case "Juni":
StartDat = "06/01/" & Jahr
EndDat = "07/01/" & Jahr
Case "Juli":
StartDat = "07/01/" & Jahr
EndDat = "08/01/" & Jahr
Case "August":
StartDat = "08/01/" & Jahr
EndDat = "09/01/" & Jahr
Case "September":
StartDat = "09/01/" & Jahr
EndDat = "10/01/" & Jahr
Case "Oktober":
StartDat = "10/01/" & Jahr
EndDat = "11/01/" & Jahr
Case "November":
StartDat = "11/01/" & Jahr
EndDat = "12/01/" & Jahr
Case "Dezember":
StartDat = "12/01/" & Jahr
EndDat = "01/01/" & Jahr + 1
End Select
Sheets("Tabelle1").Range("$A$1:$B$23").AutoFilter Field:=1, Criteria1:=">=" & StartDat,  _
Operator:=xlAnd, Criteria2:="

Das ist jetzt mein Code zur variablen Eingabe. Funktioniert auch soweit ganz gut. Gibt es vielleicht noch eine Möglichkeit den zu kürzen?
Viele Grüße
Felix

Sub t() Dim strMonat As String, strJahr As String Dim datStart As Date, datEnde As Date strMonat = "Dezember" strJahr = "2018" datStart = CDate("1." & strMonat & " " & strJahr) datEnde = DateSerial(strJahr, Month(datStart) + 1, 1) MsgBox Replace(Format(datStart, "MM/DD/YYYY"), ".", "/") MsgBox Replace(Format(datEnde, "MM/DD/YYYY"), ".", "/") End Sub

strStartDat = Replace(Format(CDate("1." & cboMonat.Text & " " & cboJahr.Text), _ "MM/DD/YYYY"), ".", "/") strEndDat = Replace(Format(DateSerial(strJahr, _ Month(CDate("1." & cboMonat.Text & " " & cboJahr.Text)) + 1, 1), _ "MM/DD/YYYY"), ".", "/")

Beliebteste Forumthreads (12 Monate)

AutoFilter per VBA: kopiere Zeilen eines Monats

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

AutoFilter per VBA: kopiere Zeilen eines Monats

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread