Office: VBA Makro - Filter

Servus alle,

ich habe einen Makro. Dieser zeigt Bestellungen an (bestellte Anzahl und tatsächliche Anzahl).
Jetzt möchte ich mir in meiner Tabelle aber nur die tatsächlichen anzeigen lassen, welche >= 95% der bestellten Anzahl sind.
Nachfolgend ist mein Filter. Aber wenn ich meinen Makro laufen lasse, bekomme ich lediglich Filterfunktion. Aber nicht schon gleich die >=95% der 100%. Was stimmt nicht mit dem Teil?

In Zeile 13 stehen meine tatsächlichen und in 12 (L) stehen die bestellten.

With Sheets("151107All")
oldFilter = .AutoFilterMode
If Not .AutoFilterMode = True Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=13, Criteria1:="(L4:L300)>=((L4:L300)*95/100))"
.UsedRange.SpecialCells(xlCellTypeVisible).Copy
End With

Danke schon einmal.
Björn

 

Hallo!

Deinen Tabellenaufbau habe ich zwar nicht verstanden, aber dein Kriterium macht irgendwie wenig Sinn, da es absolut immer erfüllt ist:
(L4:L300)>=((L4:L300)*95/100))

 

hi

servus schatzi,
wir hatten schon einmal das vergnügen. du wirst es merken, wenn du meine xls aufmachst.

in total sollen mir nur die angezeigt werden, welche in der "outstanding "-spalte >=95% von "UnitsSch" sind.

bsp: UnitSch = 100
Outstanding = 95 (oder mehr)

besser?
björn

 

Ja, das kommt mir bekannt vor...

Mach es einfach mit einer Hilfsspalte (L:L):
L1: "Hilfe"
L2: =J2>=0,95*I2
und runterkopieren.

Dann läuft dieser Code:

Code:

Sub MyFilter()
Dim oldfilter As Boolean
With Sheets("151107All")
oldfilter = .AutoFilterMode
If Not .AutoFilterMode = True Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=12, Criteria1:=True
.UsedRange.SpecialCells(xlCellTypeVisible).Copy
.AutoFilterMode = oldfilter
End With
End Sub

 

danke erst einmal für die hilfe.
aber es funkt leider nett. geht es nicht auch ohne die "hilfespalte"?
die sache icht nämlich, das ich in der zukunft aktuellere datenbanken aus access nach excel importiere, die vorherige datei ersetze und den makro laufen lassen möchte. und, ehrlich gesagt, keine lust habe ständig diese spalte neu zu benennen - wenn man woche für woche eine aktuellere version hat. verständlich, oder?
oder sollte ich eher in access selbst, beim erstellen der datenbank, sagen, ich möchte nur die einträge welche 95% oder mehr sind haben?
danke
björn

 

Hallo!

Der Autofilter von Excel ist in seinen Möglichkeiten begrenzt, daher benötigt er die Hilfsspalte.
Entweder 1. löst du es (wenn die Daten kopiert werden sollen) über Matrixformeln, oder 2. du nutzt ein Makro, welches ohne den Autofilter auskommt, oder 3. du filterst bereits in Access.