Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

erste Zeile des Autofilters per VBA erkennen

erste Zeile des Autofilters per VBA erkennen
07.05.2009 13:31:01
Ptonka
Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennummer per VBA in eine Variable
ausgeben.
Beispiel:
Ich filtere nach 2009, dann stehen die gefilterten Werte in den Zeilen 2 bis 12 und ich benötige die 2.
Ich filtere nach 2010, dann stehen die gefilterten Werte in den Zeilen 13 bis 24 und ich benötige die 13.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Gruß,
Ptonka

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erste Zeile des Autofilters per VBA erkennen
07.05.2009 13:56:25
Chris
Servus,
ich würd's mal so probieren:

Sub t()
Dim zelle As Range, lngCol As Long
For Each zelle In Range("A:A").SpecialCells(xlCellTypeVisible) ' hier für Spalte A
lngCol = zelle.Row
If lngCol  1 Then: Exit For ' bei Überschrift in Zeile 1
Next
MsgBox lngCol
End Sub


Gruß
chris

AW: erste Zeile des Autofilters per VBA erkennen
07.05.2009 14:10:27
Ptonka
Hallo Chris,
danke - das war der goldene Hinweis.
Es funktioniert auch nur mit
Zeile = Range("A2:A65536").Cells.SpecialCells(xlCellTypeVisible).Row
Prima und vielen Dank.
Gruß,
Ptonka
AW: bitte. Warum einfach wenn's auch ...
07.05.2009 14:25:46
Chris
...kompliziert geht.
Hast natürlich recht, die Schleife ist unnötig.
Gruß
Chris
Anzeige
AW: erste Zeile des Autofilters per VBA erkennen
07.05.2009 15:11:38
Luschi
Hallo Ptonka,
Dein Lösungsvorschlag kann nicht funktionieren. Teste es selbst.
Mit dieser Lösung wirst Du erfolgreicher sein: 

If ActiveSheet.AutoFilterMode Then
zeile = ActiveSheet.AutoFilter.Range.Rows(2).Row
End If

Gruß von Luschi
aus klein-Paris

306 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Autofilter mit VBA
Steffan

Hallo ihr Lieben,
ich hab ein Problem mit einer Filter Routine. In einer Mitgliederliste soll Excel beim Aufruf der Datei überprüfen, ob Mitglieder ihr Austrittsdatum erreicht haben. In Spalte I stehen diese Daten im Format 31.12.2008.
Aus dem Archiv hab ich mir folgenden Code herausges...
12.01.2009 19:15:39
Thread-ID: 1038988
4 Beiträge
Autofilter per VBA aufrufen
Armin

Hallo,
ich habe folgendes Problem mit VBA.
Ich habe in einer Liste den Autofilter eingebunden. Per VBA selektiere ich Daten nach Datumswerten mit folgendem Code:
Zunächst lese ich das in Zelle A1 vorhandene Datum "01.01.2009" aus und lege dieses in der Variable "datVon" ab. Diese Va...
21.01.2009 15:45:00
Thread-ID: 1042249
4 Beiträge
Anzeige
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Autofilter Doppelnennungen filtern über VBA
Emil

Hallo zusammen,
ich habe folgendes Problem innerhalb eines größeren Makros:
Ich habe eine Tabelle aus der ich mittels eines Makros Werte in ein Diagramm übertrage.
Hierzu werden schon Spalten über den Autofilter nach bestimmten Auswahlkriterien gefiltert, das funktioniert alles wund...
03.09.2009 17:33:39
Thread-ID: 1100285
2 Beiträge
Blattschutz - Zugriff auf Autofilter -VBA-
Wolfgang

Hallo,
mit nachstehendem Code wird in allen Tabellenblättern der Blattschutz eingeschaltet. Nun mußte ich feststellen, dass AutoFilter sich nicht bedienen lässt, so dass ich hierzu die nachstehende Ergänzung eingebaut habe. Allerdings ohne Erfolg, es tut sich nichts.- Wie müßte ich den Cod...
26.10.2009 19:52:57
Thread-ID: 1112334
5 Beiträge
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
Werte eingeben bei gesetzem Autofilter via VBA
Gegga

Mahlzeit...
Mal ne kleine Frage
Habe ne Liste, mit einem gesetzen Autofilter (Mehre Zeilenab zeile 6 sind eingeblendet, nicht nur eine, z.B 6,12,14,19,26,37). Nach Ausdruck dieser Liste soll in die eingeblendeten Zellen via UF das Druckdatum (textbox) und der Sachbearbeiter (Combobox)in...
29.01.2010 13:59:40
Thread-ID: 1134124
2 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
4
2
3
3
3
2
1
4
7
1
2
8
8
3
9
11
4
2
4
4
5
3
2
4
2