ich bräuchte Hilfe bei einem Problem.
Ich habe eine Excel Tabelle mit einigen Tabellenblättern. Es sollen aus allen Tabellenblättern die Zeilen in ein extra Tabellenblatt kopiert werden, die einer bestimmten Kalenderwoche entsprechen. Ich habe bereits ein funktionierendes Makro geschrieben. Allerdings funktioniert es nur, solange in allen Tabellenblättern mind. eine Zeile mit der entsprechenden Kalenderwoche steht. Ist dies nicht der Fall funktioniert der Filter nicht und es werden auch andere Zeilen mit falscher Kalenderwoche kopiert.
Kann mir jemand bei dem Problem helfen?
Liebe Grüße
Sub Filtern_Kopieren()
' Filtern_Kopieren
ThisWorkbook.Worksheets("Allgemein").Activate
ActiveSheet.Range("B13:L69").AutoFilter
ActiveSheet.Range("B13:L69").AutoFilter Field:=6, Criteria1:=Sheets("Aktuell").Range("K5"). _
Value
ThisWorkbook.Worksheets("Aktuell").Range("B13:L200").ClearContents
ActiveSheet.Range("B13:L69").Copy Destination:=ThisWorkbook.Worksheets("Aktuell").Range("B13")
With Worksheets("Allgemein")
If .AutoFilterMode And .FilterMode Then .ShowAllData
End With
ThisWorkbook.Worksheets("Kombi").Activate
ActiveSheet.Range("B13:L69").AutoFilter
ActiveSheet.Range("B13:L69").AutoFilter Field:=6, Criteria1:=Sheets("Aktuell").Range("K5"). _
Value
ActiveSheet.Range("B14:L69").Copy
Sheets("Aktuell").Cells(Rows.Count, 2).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
With Worksheets("Kombi")
If .AutoFilterMode And .FilterMode Then .ShowAllData
End With
ThisWorkbook.Worksheets("Aktuell").Activate
End Sub