Autofilter Vertikal statt Horizontal
13.08.2020 22:57:54
Thomas
ich bin aktuell an einer Auswertung. Diese würde ich gerne filtern, dazu habe ich eine Tabelle Auswertung erstellt. Nun habe ich das Problem, dass die Kalenderwochen Vertikal und nicht horizontal stehen, da es sich dabei um einen Jahreskalender handelt wäre es unpraktisch diesen umzuformatieren.
Aktuell sieht mein Makro wie folgt aus:
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=6, Criteria1:=[Auswertung!D1]
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Auswertung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Die Frage ist nun nur, kann ich das auch vertikal filtern? Die Werte stimmen alle, sofern ich Daten aus Horizontalen Sachen nehme funktioniert es einwandfrei.
Vielen Dank.
Gruß