Autofilter

Sub Filtern() Cells.Select Selection.AutoFilter ' ActiveSheet.Range("$A$1:$AO$37207").AutoFilter Field:=1, Criteria1:=Vertragskonto m = 0 Do Until ActiveCell.Value = "" Vertragskonto = ActiveCell.Value ActiveSheet.Range("$A$1:$AO$37207").AutoFilter Field:=1, Criteria1:=Vertragskonto 'MsgBox Format(WorksheetFunction.Min(Range("G1:G65000")), "dd.mm.yy") 'MsgBox Format(WorksheetFunction.Max(Range("H1:H65000")), "dd.mm.yy") Workbooks("P9A_401_2010 - Gesamt.xlsx").Activate ActiveSheet.Range("$A$1:$AO$37207").AutoFilter Field:=1, Criteria1:=Vertragskonto Range("A1").Select m = m + 1 ActiveCell.Offset(m, 0).Select Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter

04.02.2013 12:45:14

Klaus

AW: Autofilter

04.02.2013 20:59:52

Kati

AW: Autofilter

05.02.2013 08:02:47

Klaus

AW: Autofilter

05.02.2013 09:10:09

Kati

AW: Autofilter

05.02.2013 09:57:06

Klaus

AW: Autofilter

05.02.2013 10:10:30

Kati

AW: Autofilter

05.02.2013 10:32:47

Klaus

AW: Autofilter

05.02.2013 11:03:19

Kati

AW: Autofilter

05.02.2013 11:10:01

Klaus

AW: Autofilter

05.02.2013 13:26:11

Kati

AW: Autofilter

05.02.2013 13:28:15

Klaus

AW: Autofilter

05.02.2013 13:43:00

Kati

AW: Autofilter

05.02.2013 13:33:46

Kati

sorry, ist mir zu hoch

05.02.2013 13:45:52

Klaus

AW: sorry, ist mir zu hoch

06.02.2013 22:34:28

Kati

Danke für die Rückmeldung! owT.

07.02.2013 14:00:51

Klaus

AW: Autofilter

04.02.2013 13:36:02

Dieter(Drummer)

Hallo Kati,
ich hab deinen Code nicht optimiert, sondern das ganze neu geschrieben ....
bitte lass den Script mal laufen. Ist es das was du möchtest?

Sub JedesKontoEinmal()
Dim lRow As Long
Dim lAnz As Long
Dim sFilter As String
'Autofilter zurücksetzen
Call DoResetAutofilter(Sheets("2010"), 1, 5, 1)
'Mache einzigartige Vertragsnummern in extra Tabelle
With Sheets("Tabelle1")
.Cells.ClearContents
Sheets("2010").Columns("A:A").Copy
.Range("A1").PasteSpecial xlPasteValues
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B1"), Unique:= _
True
Application.CutCopyMode = False
lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
'Autofilter ausführen - einmal für jedes Konto
For lAnz = 2 To lRow
sFilter = Sheets("Tabelle1").Cells(lAnz, 2).Value
Sheets("2010").Range("$A$1").AutoFilter Field:=1, Criteria1:=sFilter
'****** DIESE ZEILE AUSKOMMENTIEREN ****
MsgBox ("Konto " & sFilter & " wird angezeigt")
'******* stattdessen: wasimmer du mit dem gefilterten Werten anfangen willst .... ***
Next lAnz
End Sub
Sub DoResetAutofilter(wksMySheet As Worksheet, iColFirst As Integer, iColLast As Integer,  _
lRowFirst As Long)
'* in case a user used another autofiler, this makro resets the autofilter to where needed.
Dim lRowLast As Long
With wksMySheet
lRowLast = .Cells(.Rows.Count, iColFirst).End(xlUp).Row
If .AutoFilterMode Then .Cells.AutoFilter 'Turns OFF Autofilter, if any
.Range(.Cells(lRowFirst, iColFirst), .Cells(lRowLast, iColLast)).AutoFilter 'Turns ON  _
Autofilter on given range
End With
End Sub

Grüße,
Klaus M.vdT.

Hallo Kati,
das DoResetAutofilter(Sheets("2010"), 1, 5, 1) benötigst du ... eigentlich gar nicht.
Schau mal unter das eigentliche Makro, da ist noch eine
Sub DoResetAutofilter, welche oben aufgerufen wird. Damit stelle ich sicher, dass vor Ablauf des Makros der Autofilter 1) momentan nicht filtert und 2) auf genau den richtigen Bereich gesetzt ist.
Wäre das nicht drin, und du filterst die Liste und führst das Makro aus, dann geht der Vorgang des kopieren der Vertragsnummern schief (weil nicht die ganze, sondern die gefilterte Liste kopiert wird). Ich habe mir angewöhnt, bei Makros mit Filtereinsatz den Filter zu Beginn neu zu setzen um diesen Fehler auszuschließen. Kannst du 100% garantieren, dass das Makro NIE bei gefilterter Liste gestartet wird und der Autofilter auch NIE aufgehoben oder - noch schlimmer - an eine andere Stelle verschoben wird, brauchst du die Zeile nicht. Schadet aber andererseits auch nicht :-)
Da ich diesen Vorgang (Autofilter neu setzen) öfters benutze, habe ich dazu eine Standardprozedur die ich aus Faulheit einfach kopiere.
Ich muss später noch das jüngste Datum sowie das älteste Datum für jedes Vertragskonto suchen.
Dazu braucht es aber keinen Autofilter!
https://www.herber.de/bbs/user/83762.xlsm
Hier, in der "Tabelle1" mit den einzigartigen Vertragsnummern mal fix mit Matrixformeln. Ganz ohne VBA.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread