Runtime 91 Error .... warum?
04.11.2022 10:55:40
Thomas
Private Sub Worksheet_Activate()Dim oLst As ListObject
Dim lrow As Long
Sheets("Output").Cells.Clear
lrow = 1
With Sheets("Input")
For Each oLst In .ListObjects
oLst.Range.AutoFilter
lrow = Sheets("Output").Cells(Sheets("Output").Rows.Count, 1).End(xlUp).Row
lrow = IIf(lrow = 1, 0, lrow) 'ist notwendig für die CopytoRange
If oLst.AutoFilter.FilterMode = True Then Sheets("Input").ShowAllData
oLst.Range.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Search").Range("A1").CurrentRegion, _
CopytoRange:=Sheets("Output").Range("A" & lrow + 1), _
Unique:=False
If lrow > 0 Then Sheets("Output").Rows(lrow + 1).Delete 'ab der 2ten Tab Spaltenzeitle löschen
Next
End With
With Sheets("Output")
.Range("A1").CurrentRegion.Offset(, 6).ClearContents 'Achtung offset 6, geht bis Spalte F
.ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes).Name = "Test_Table"
End With
End Sub
Anzeige