Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach filter erste zeile finden

Forumthread: nach filter erste zeile finden

nach filter erste zeile finden
abu
Hallo Zusammen,
ich hab ein kleines Problem und hoffe das mir hier jemand helfen kann.
Schreibe grad ein Makro um ein paar arbeiten zu vereinfachen:
1. setze Filter
2. loesche alle Zeilen
Mein Problem ist wie ich Excel sage wo die erste Zeile ist. Also die erste Zeile ist natuerlich Ueberschriften und wenn ich den Filter drauf hab dann ist die 2 Zeile ja nicht Zeile 2 sondern z.B. 1085 oder 596. Also immer anders. Die letzte Zeile finde ich mit einer Schleife aber wie definiere ich die erste Zeile?
Gruesse
abu
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: nach filter erste zeile finden
28.04.2010 12:58:42
Rudi
Hallo,
z.B. cells.specialcells(xlCellTypeVisible).areas(2).row
Gruß
Rudi
AW: nach filter erste zeile finden
28.04.2010 13:33:49
abu
Hallo Rudi,
danke fuer deine Antwort.
Leider bekomme ich es nicht hin. Vllt. koenntest du mal drueberschauen?
Sub Express()
Dim z As Long
'alles markieren und dann spaltengroesse und dann autofilter
Cells.Select
Cells.EntireColumn.AutoFit
Selection.AutoFilter
'RPS Classic EU loeschen
Selection.AutoFilter Field:=7, Criteria1:="RPS Classic EU"
With Worksheets("Sheet1")
z = 2
While .Cells(z, 1)  ""
z = z + 1
Wend
z = z - 1
'Rows("2:z").Select    'hier muesste stattdessen deine Zeile hin aber wie?
Selection.Delete Shift:=xlUp
End With
End Sub
Danke im voraus.
Gruss
abu
Anzeige
AW: nach filter erste zeile finden
28.04.2010 16:29:34
abu
Hallo alle,
es muss so lauten:
Rows(Cells.SpecialCells(xlCellTypeVisible).Areas(2).Row & ":" & z).Select
Danke Rudi!

Forumthreads zu verwandten Themen

erste Zeile des Autofilters per VBA erkennen
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 Zeilennumme...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Erste und letzte Zeit aus einer Zeile filtern
Rene

Hallo, ich habe in einem Arbeitsblatt für jeden Tag im Monat eine Zeile. in der Zeile werden je Tag Einsatzzeiten eingetragen. Jetzt möchte ich gerne der erste Anfangszeit und die letzte Endzeit weiter verarbeiten. Da die Grundsätzliche Dienstzeit von sieben Uhr morgens bis sieben Uhr am nächs...
12.08.2015 17:51:31
Thread-ID: 1442051
3 Beiträge
Texte aus erster Zeile vom Filter kopieren!
Andreas

Hallo Zusammen,
gibt es eine Formel in Excel in der ich Texte aus der ersten Zeile nach dem Filtern meiner Tabelle in andere Zellen Kopieren kann?
Wenn ich z.B. nach einer bestimmten Nummer in Spalte "C" filtere will ich den Text der dann in der ersten Zelle vom Filter in Spalte "A" ste...
04.10.2016 07:59:27
Thread-ID: 1517882
16 Beiträge
Ersten Zeilen nach Filter kopieren...
Julia

Hallo Ihr Lieben,
ich bräuchte bitte eure Hilfe bei neinem kleinen VBA Projekt.
Und zwar möchte ich gerne die 10größte Werte von Spalte 15 von Tabelle2 in Tabelle1 kopieren.
den Filter zu setzten klappte noch.
Aber wie kann ich denn die ersten 10 gefilterten Zeilen kopieren?...
24.04.2017 08:14:52
Thread-ID: 1554292
6 Beiträge
Autofilter: erste Zeile des Filterkriteriums marki
andreasH

Folgende Situation:
in der ersten Zeile stehen die Überschriften, die mit einem Autofilter versehen sind.
die erste Zeile ist fixiert (über die Menüs "Fenster, Teilen" und "Fenster, fixieren").
In einer langen Liste ist jetzt die Zelle A2000 aktiviert.
Wenn ich jetzt den Autofil...
09.06.2004 09:19:45
Thread-ID: 439174
5 Beiträge
Erste gefilterte Zeile eines Autofilters
Dieter

Hallo Profis,
ich habe einen Autofilter, z.B.
   |         A           B      C
-------------------------------
1 |  Buc...
29.08.2005 18:52:50
Thread-ID: 659594
4 Beiträge
Anzeige
Erste Zeile nach Autofilter Option zurückgeben
Steffen

ich möchte immer automatisch die achte Zelle der ersten Zeile zurückgeben nachdem ich die Autofilter Option benutzt habe. Da sich die Zeilen ja dynamisch änderen je nachdem welches Wort ich in der Autofilter Option bevorzuge ist mir noch nicht klar wie man das anstellen könnte.
schonmal Dan...
03.10.2005 16:55:47
Thread-ID: 676124
4 Beiträge
oberste Zeile im Autofiltermodus
thorsten

Hallo Forumsteilnehmer,
ich setze per Makro einen Autofilter.
nun möchte ich in Spalte "C" die einzelnen Werte auslesen und den größten bestimmen.
Mit dem offset-Befehl kann ich leider die Zellen nicht ansteuern. Gibt es eine andere Möglichkeit?
hier mein Code:
Selection.Aut...
24.01.2006 13:01:56
Thread-ID: 723498
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Erste Zeile nach Filter finden in Excel

Schritt-für-Schritt-Anleitung

  1. Makro erstellen: Öffne den VBA-Editor mit ALT + F11.

  2. Neues Modul einfügen: Klicke mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)", wähle "Einfügen" und dann "Modul".

  3. Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub Express()
   Dim z As Long
   'alles markieren und dann Spaltengröße und dann Autofilter
   Cells.Select
   Cells.EntireColumn.AutoFit
   Selection.AutoFilter

   'RPS Classic EU löschen
   Selection.AutoFilter Field:=7, Criteria1:="RPS Classic EU"

   With Worksheets("Sheet1")
       z = 2
       While .Cells(z, 1) <> ""
           z = z + 1
       Wend
       z = z - 1

       'Hier wird die erste sichtbare Zeile nach dem Filter gefunden
       Rows(Cells.SpecialCells(xlCellTypeVisible).Areas(2).Row & ":" & z).Select
       Selection.Delete Shift:=xlUp
   End With
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.

Häufige Fehler und Lösungen

  • Fehler: "Kein sichtbares Zellen gefunden"
    Lösung: Stelle sicher, dass der Autofilter aktiv ist und dass es sichtbare Zellen gibt, die gelöscht werden sollen.

  • Fehler: "Index außerhalb des Bereichs"
    Lösung: Überprüfe, ob die Daten in "Sheet1" tatsächlich vorhanden sind und ob der Filter korrekt gesetzt wurde.

Alternative Methoden

Eine alternative Methode, um die erste sichtbare Zeile nach dem Anwenden eines Filters zu finden, ist die Verwendung von Formeln. Du kannst die Funktion AGGREGAT in Kombination mit VERGLEICH verwenden, um die erste sichtbare Zeile zu ermitteln:

=AGGREGAT(15;6;A2:A100/ISTZAHL(A2:A100);1)

Diese Formel sucht nach der ersten sichtbaren Zelle in dem Bereich A2:A100, nachdem ein Filter angewendet wurde.

Praktische Beispiele

  1. Beispiel 1: Wenn du eine große Datentabelle hast und nur die Zeilen mit dem Kriterium "RPS Classic EU" löschen möchtest, setze den Filter wie im Makro beschrieben und führe das Makro aus.

  2. Beispiel 2: Um zu überprüfen, ob dein Makro korrekt funktioniert, kannst du eine Testtabelle mit zufälligen Werten erstellen und verschiedene Filter anwenden.

Tipps für Profis

  • Verwende Variablen: Um den Code flexibler zu gestalten, kannst du Variablen für die Filterkriterien und den Bereich verwenden.

  • Fehlerbehandlung: Füge eine Fehlerbehandlung zu deinem Makro hinzu, um unerwartete Situationen abzufangen. Zum Beispiel:

    On Error Resume Next

  • Dokumentation: Kommentiere deinen Code gut, damit du oder andere ihn später leichter verstehen können.

FAQ: Häufige Fragen

1. Wie kann ich den Filter auf mehrere Kriterien anwenden?
Du kannst das Criteria1-Argument im Autofilter-Befehl anpassen, um mehrere Kriterien zu definieren, z.B. Criteria1:="RPS Classic EU", Operator:=xlOr, Criteria2:="Anderes Kriterium".

2. Funktioniert dieser Code in allen Excel-Versionen?
Der gezeigte VBA-Code sollte in den meisten modernen Excel-Versionen ab Excel 2007 funktionieren. Achte darauf, dass die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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