Sub
TabelleFiltern()
Dim
A
As
String
Dim
Kategorie
As
String
Dim
lngLastRowTab1
As
Long
Dim
lngLastRowTab2
As
Long
Dim
lngLastRowErgebnis
As
Long
Dim
ws
As
Worksheet
Set
ws = ThisWorkbook.Worksheets.Add
ws.Name =
"NeueTabelle"
lngLastRowTab1 = Sheets(
"Tabelle1"
).Cells(Rows.Count, 1).
End
(xlUp).Row
lngLastRowTab2 = Sheets(
"Tabelle2"
).Cells(Rows.Count, 1).
End
(xlUp).Row
lngLostRowErgebnis = Sheets(
"NeueTabelle"
).Cells(Rows.Count, 1).
End
(xlUp).Row
Sheets(
"Tabelle1"
).Range(
"A11:P200"
).AutoFilter 12,
"Kategorie"
Sheets(
"Tabelle1"
).Range(
"A11:P200"
).Copy Destination:=ThisWorkbook.Worksheets(
"NeueTabelle"
).Range(
"B2"
)
LngLastRowErgebnis = Sheets(
"NeueTabelle"
).Cells(Rows.Count, 1).
End
(xlUp).Row + 1
Sheets(
"Tabelle2"
).Range(
"A11:P200"
).AutoFilter 12,
"Kategorie"
Sheets(
"Tabelle2"
).Range(
"A11:P200"
).Copy Destination:=ThisWorkbook.Worksheets(
"NeueTabelle"
).Range(
"B2"
)
LngLastRowErgebnis = Sheets(
"NeueTabelle"
).Cells(Rows.Count, 1).
End
(xlUp).Row + 1
A = MsgBox(
"Kategorie wurde gefiltert"
, vbOKOnly,
"Kategorie"
)
End
Sub