Autofilter Problem mit ähnlichen Inhalt
12.07.2019 17:23:01
rieckmann
ich habe 4 Schaltflächen mit Autofilter erstellt.
3 davon funktionieren gut, weil ich die explizit filtern kann. (2-5)
Die Filter sind:
1. Harb.
2. Harb. M `Mit Autofilter: Criteria1:="=Harb. M*"
3. Alt. `Mit Autofilter: Criteria1:="=Alt*"
4. BM HH `Mit Autofilter: Criteria1:="=BM HH*"
5. Milchstr. `Mit Autofilter: Criteria1:="=Milchstr.*"
Das Problem ist, dass sich hinter Bsp. 1 noch Zahlen befinden, also in etwa so:
Harb. 4711
Alle Werte in dieser Spalte sind im Text-Format.
Wenn ich nun wie unten aufgeführter Code nach Bsp. 1 filtern möchte, erscheinen auch die Daten unter Bsp. 2 Harb. M.
Wie kann ich nun eine Filterung erstellen, dass nur Daten von Bsp. 1, also Harb. erscheinen ?
Hier mein Code:
Gruß Fiete
Sub Schaltfläche91_Klicken()
Dim lngZ As Long
Dim varWs As Variant
varWs = Array("Heide", "Hannover", "Kiel", "Mölln", "Osnabrück", "Bremen", "Husum", "Hamburg" _
, "sonstige")
For lngZ = LBound(varWs) To UBound(varWs)
With Worksheets(varWs(lngZ))
If .AutoFilterMode Then .Cells.AutoFilter
.Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter Field:=15, _
Criteria1:="=Harb.*"
End With
Next lngZ
End Sub
Oder gibt es die Möglichkeit den Autofilter zu nutzen mit - alles anzeigen außer Bsp. 2, Bsp. 3, Bsp. 4, Bsp. 5 ?
Anzeige