Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

autofilter: Anzahl zeilen

autofilter: Anzahl zeilen
Jochen
Hallo zusammen
ich habe folgendes Problem: Ich möchte per VBA Zeilen kopieren, dei ich vorher per Autofilter selektiert habe. Wenn in der Auswahl aber kein Elemnt enthalten ist, dann kopiert er nur Müll. Daher möchte ich die Anzahl Zeilen ermitteln und das kopieren überspringen, wenn die zeilenzahl = 0 ist.
Leider klappt das so nciht, kann mir einer sagen warum?
Rows("20:100").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="x"
Selection.AutoFilter Field:=2, Criteria1:="y"
Rows("20:100").Select
Z_Zahl = Selection.Cells.SpecialCells(xlCellTypeConstants).Rows.Count
Danke
Jochen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: autofilter: Anzahl zeilen
25.09.2009 15:52:12
Jochen
Sorry, hatte gerade gemerkt, daß ich einen Copy - Paste fehler drin habe.
Die Zeile lautet bei mir
Z_Zahl = Selection.SpecialCells(xlCellTypeVisible).Rows.Count
(funktioniert aber trotzdem nicht)
AW: autofilter: Anzahl zeilen
25.09.2009 16:24:52
Kawensmann
Hallo,
versuch’s mal so:
Dim r As Range
Dim i As Integer
Set r = Rows("20:100")
i = Intersect(r.SpecialCells(xlVisible), r.Columns(1)).Count - 1
MsgBox i & " Zeilen"
Gruß
Kawensmann
AW: autofilter: Anzahl zeilen
25.09.2009 16:37:50
Gerd
Hallo Jochen
oder so.
Sub test()
Rows("20:100").AutoFilter
Rows("20:100").AutoFilter Field:=1, Criteria1:="x", Field:=2, Criteria1:="y"
If Cells(100, 1).End(xlUp).Row = 20 Then
MsgBox "nicht kopieren"
Else
MsgBox "kopieren"
Autofilter.Range.Copy (Tabelle2.cells(1, 1)
End If
End Sub

Anzeige
DANKE !!! o.T.
28.09.2009 10:35:50
Jochen
---
AW: autofilter: Anzahl zeilen
25.09.2009 17:12:13
Daniel
HI
du arbeitest mit Selection, das ist nicht gut, vorallem hier für die Problemstellung, da wir nicht wissen welche Zellen du selektiert hast.
außerdem funktioniert die Rows.Count-Methode nicht bei unterbrochenen Zellbeichen, so wie sie durch das Ausblenden entstehen können, Excel liefert hier keine zuverlässige Zahl.
mit dieser Mehtode könntest du das allerdings lösen:
Sub test()
With ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If .Areas.Count = 1 And .Rows.Count = 1 Then
MsgBox "keine Zellen zum kopien vorhanden"
Else
MsgBox "es gibt Zeilen zum kopieren"
End If
End With
End Sub
Gruß, Daniel
Anzeige

33 Forumthreads zu ähnlichen Themen

variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Anzeige
Zeilen mehrfach nach Einträgen filtern
Joni

Hallo,
ich möchte aus einer Liste Daten heraus filtern. Dabei hilft mir das Makro von Klaus aus meiner vorigen Frage
https://www.herber.de/forum/messages/1179259.html
Zusätzlich möchte ich die gefundenen Zeilen mit meinem ursprünglichen Makro noch filtern. Dann könnte ich zuerst all...
26.09.2010 14:52:36
Thread-ID: 1179331
2 Beiträge
Filtern nach Zeilen
KON

Hallo Experten,
kann man eigentlich im Excel nach Zeilen statt nach Spalten filtern. Wenn JA, wie geht das.
Danke für die Hilfe
Viele Grüße
Kon
06.05.2011 13:57:06
Thread-ID: 1213363
3 Beiträge
Anzeige
Filter - nach Speichern Zeilen verschwunden
Carmen

Hallo zusammen,
habe eine ganz dringende Frage zu der Filterfunktion "nach Farbe filtern".
Habe eine relativ lange Excel Tabelle in der ich eine Spalte nach Farbe filtern wollte. Da gibt es ja in dem neuen Excel 2007 auch eine super Funktion zu.
Nun habe ich die Datei mit dem Filte...
27.04.2012 12:08:01
Thread-ID: 1261214
2 Beiträge
Autofilter nach Zeilenauswahl
Wolle

Hall Beverly,
leider ist mein Beitrag schon geschlossen worden. Ich komme zurück auf deine Antwort von gestern und möchte noch mal darauf antworten.
Sicherlich benötige ich nicht die ganze Zeile für die Einträge in den Autofilter.
Es ist nur schneller kopiert als erst einen Bereich...
31.01.2013 07:44:35
Thread-ID: 1296836
3 Beiträge
Zählen v. Zeilen mit best. Zahlen nach Autofilter
Uli

Hallo und guten Tag!
ich wollte mir hier eine Zeile zusammenschnippeln, die nur die nicht herausgefilterten (autofilter, nicht manuell ausgeblendeten) Zeilen zählt, in denen ein spezifischer Zahlenbereich drinsteht. Leider klappt es nicht, bin ziemlich neu aber eigentlich sollte ich Funktio...
17.02.2016 12:52:20
Thread-ID: 1476048
3 Beiträge
Zeilenanzahl festlegen per VBA
Nico

Hallo zusammen!
Ich stehe gerade vor folgendem Problem:
Ich habe eine Datei mit mehreren Sheets, welche zum größten Teil mit diversen Formeln miteinander verknüpft sind. Eine Zeile entspricht hierbei einem separaten Datensatz (eine Immobilie). Die Daten beginnen in jedem Arbeitsblatt ab...
25.04.2016 10:53:26
Thread-ID: 1490062
6 Beiträge
Zeilen löschen, nach filtertext
Michael

Hallo alle zusammen,
https://www.herber.de/bbs/user/108310.xlsx
Zusätzlich zu meinem gestrigen Beitrag stehe ich "Überraschung" wieder vor einer Herausforderung.
Ich habe eine Ist, Filter, und Soll Tabelle eingefügt.
Die Ist Liste soll mithilfe der Filter tabelle angepasst werd...
21.09.2016 12:16:04
Thread-ID: 1515557
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
1
2
6
1
2
2
5
13
5
13
5
1
2
3
2
3
15
2
6
3
3
1
6