Sub TabelleFilternL()
'Das Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Tabelle1").Activate
'Filtereinstellung auf null setzen
ActiveSheet.Range("B1:B20").AutoFilter 1, "*L*"
'Tabelle leeren
ThisWorkbook.Worksheets("Tabelle2").Cells.Clear
'Gefilterte Daten kopieren und in Tabelle 2 einfügen
Tabelle1.UsedRange.SpecialCells(xlCellTypeVisible).Copy _ Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1) _ .End(xlUp).Row, 1)
End Sub
Diesen Code möchte ich in eine If Anweisung packen um z.B Else zu nutzen. Geht das? Falls ja, wie?
|