Warum geht mein Code nicht?
Holger,
Tino hat mir mal bei der Programmierung eines tollen AdvancedFilters geholfen.
Nun dachte ich, das auf mein aktuelles Problem anwenden zu können,
nämlich einen riesigen Rangebereich einzuschränken anhand eines Kriteriums.
Der Aufbau ist so
1;CEE
2;CEE
3,CEE
4;HOLGER
5;TINO
6;RENE
7;LUC
Mit AdvancedFilter will ich einschränken auf alle CEE Zellen.
Dazu habe ich in P1 eine Überschrift und in P2 das Kriterium geschrieben.
Das als Rangebereich definiert und diesen als Kriterium für AdvancedFilter angegeben.
Klappt leider null, siehe Macro.
Was mache ich falsch?
Option Private Module
Option Explicit
Sub PrepareSheets()
Dim wks1M As Worksheet, wks2M As Worksheet
Dim rngEntireRange As Range
Dim rngID As Range, rngSALES As Range, rngNON
Sub As Range, rngCEEMEA As Range
Dim lngLastCell As Long
Dim intColID As Integer
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Set wks1M = Worksheets("Data1M")
'Set wks2M = Worksheets("Data2M")
Set rngID = wks1M.Cells.Find(What:="ID", lookat:=xlPart)
intColID = rngID.Column
lngLastCell = wks1M.Cells(Rows.Count, 1).End(xlUp).Row
Set rngEntireRange = wks1M.Range(Cells(2, intColID), Cells(lngLastCell, intColID))
Set rngCEEMEA = Range("P1:P2")
With rngEntireRange
.AdvancedFilter xlFilterInPlace, rngCEEMEA
End With
End Sub
Anzeige