Hallo! Habe schon wieder eine Frage. Ich selectiere mit folgendem AutoFilter einen Bereich:
Selection.AutoFilter Field:=11, Criteria1:=""
Wie kann ich die gefundenen Zeilen zählen und und die Anzahl über MsgBox ausgeben.
Bitte um Hilfe Gerhard
Hallo, ich weiß nicht ob dir das weiterhilft.Aber mit einer Formel könntest du das Lösen mit "Teilergebniss" Der zeigt dir nur noch das an was gefiltert wurde.
grüße Chris
AW: AutoFilter Auswahl
12.10.2005 18:04:18
Selma
Hallo Gerhard,
probier es mal hiermit:
Dim i As Integer
Selection.AutoFilter Field:= 11, Criteria:= "" ActiveSheet.Cells(1, 11).Select Selection.Offset(1, 0).Select ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
i = Selection.count -- Ich geh mal davon aus, dass du Spalte 11 zählen willst. In i hast du dann die Anzahl.
Ist ein bisschen kompliziert sowas, aber ich musste es mir selbst mal basteln. Weiß nicht, ob es besser geht?
Gruß, Selma