Option Explicit
Public Sub Schicht_kopieren()
Dim loLetzte As Long
Dim loLetzteZ As Long
Dim raBereich As Range
Dim daDatum As Date
Dim strSchicht As String
loLetzte = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Tabelle1")
daDatum = CDate(.Cells(1, 1))
strSchicht = .Cells(2, 1)
End With
Worksheets("Tabelle2").AutoFilterMode = False
Worksheets("Tabelle2").Range("$A$1:$L$" & loLetzte).AutoFilter Field:=1, Criteria1:= _
"=" & daDatum, Operator:=xlAnd
Worksheets("Tabelle2").Range("$A$1:$L$" & loLetzte).AutoFilter Field:=2, Criteria1:=strSchicht
Worksheets("Tabelle3").Cells.ClearContents
Set raBereich = Worksheets("Tabelle2").AutoFilter.Range.SpecialCells(xlCellTypeVisible)
raBereich.Copy Worksheets("Tabelle3").Cells(1, 1)
loLetzteZ = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzteZ = 1 Then
Worksheets("Tabelle3").Cells.ClearContents
MsgBox "Kein Suchergebnis vorhanden."
Worksheets("Tabelle2").AutoFilterMode = False
End If
Worksheets("Tabelle2").AutoFilterMode = False
Set raBereich = Nothing
End Sub