Der folgende VBA-Code funktioniert einwandfrei und wunderbar
Sub Filtern_Filme()
With ThisWorkbook.Worksheets("Ausstrahlung")
.UsedRange.AutoFilter
.UsedRange.AutoFilter 7, "*" & ThisWorkbook.Worksheets("Schauspieler - Film").Range( _
_
"D14").Value & "*"
Dim Anzahl
Anzahl = .Cells(Rows.Count, 2).End(xlUp).Row
End With
If Anzahl > 1 Then
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Tabelle7").Rows.Delete
ThisWorkbook.Worksheets("Ausstrahlung").UsedRange.Copy Destination:=ThisWorkbook. _
Worksheets("Tabelle7").Range("A1")
ThisWorkbook.Worksheets("Ausstrahlung").Activate
ActiveSheet.UsedRange.AutoFilter
Worksheets("Tabelle7").Activate
End Sub
Jetzt würde ich gerne die Suche auf ein zweites Tabellen-Blatt erweitern, soll heißen die Suche soll in zwei Tabellen-Blättern stattfinden und das Ergbnis wie gewohnt in Tabelle 7 ausgegeben werden. ( Das zweite Tabellen-Blatt ( Name = Fehlende ) hat denselben Aufbau wie das Tabellen-Blatt Ausstrahlung und die suche soll auch jeweils in der gleichen Spalte ( 7 ) stattfinden.
Könnte mir jemand dabei behilflich sein, das wäre wunderbar
mit freundlichen Grüßen
Jürgen