Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
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
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SelectFilter erst ab Zeile4

SelectFilter erst ab Zeile4
13.01.2009 07:52:48
Josef
Guten Morgen!
Wenn ich bei der nachstehenden Musterdatei zuerst das Makro "Filter_setzen" und danach das Makro "Select_Filter-Terst" starte, so erfolgt in der Tabelle1 die Markeirung erst ab der Zeile 4 und nicht wie gwünscht ab der Zeile 3. Wo und wie müßte ich bitte hier den Code verändern, damit die Markierung bereits ab der Zeile 3 erfolgt?
https://www.herber.de/bbs/user/58326.xls
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: SelectFilter erst ab Zeile4
13.01.2009 09:01:59
Erich
Hallo Josef,
reicht das hier nicht aus? 

Option Explicit     ' immer zu empfehlen
Sub SelectFilter_Test()
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: SelectFilter erst ab Zeile4
13.01.2009 09:09:32
Josef
Hallo Erich!
Danke für Deine Antwort.
Das würde wahrscheinlich nicht reichen.
Nachdem die Markierung der Zeilen , in denen der wert 1 in der Spalte M steht erfolgt ist, werden diese markierten Zellen ausgeschnitten und in einer anderen Tabelle eingefügt.
Teil des Original Makros:
........
Sheets("hemaausgabedatei").Select
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="1"
Call SelectFilter
Application.CutCopyMode = False
Selection.Cut
Sheets("Wien").Select
Call Letzte_Freie_Zelle_Spalte_A
ActiveSheet.Paste
Call SortNeu_N
Range("A1").Select
Sheets("hemaausgabedatei").Select
Selection.AutoFilter Field:=13
Selection.AutoFilter
Call SortNeu_M
................
Danke
Josef
Anzeige
AW: SelectFilter erst ab Zeile4
13.01.2009 09:40:00
Josef
Hallo Erich!
Habe es jetzt mit Deinem Lösungsversuch probiert.
Filter nicht in Zeile 2 gesetzt sondern in Zeile 3.
Makro gestartet. Filter mit Wert "1" kein Problem, Filter mit Wert "2" , Fehler bei "Selection.Cut"
Setze ich jedoch den Filter wieder auf Zeile 2, dann gibt es zwar kein Problem mit dem Code, jedoch bleibt wieder die 3. Zeile hartnäckig weiter bestehen, da die Markierung weder ab der Zeile 4 erfolgt.
Was mitr noch aufgefallen ist:
Sämtlich Filter mit den Wertn 1 bis 9 werden abgearbeitet, nur bei "1" bleibt mit diese eine Zeile stehen.
Josef
AW: SelectFilter erst ab Zeile4
13.01.2009 09:39:00
Luschi
Hallo Josef,
hier liegt der Fehler: Set rg2 = Application.Union(rg1.Rows(1), rg1.Rows(2))
Du definierst für die Filterüberschrift 2 Zeilen!
Da die Filterüberschrift aber nur aus 1 Zeile besteht, sollte es so funktionieren:
Set rg2 = rg1.Rows(1)
Gruß von Luschi
aus klein-Paris
Anzeige
AW: SelectFilter erst ab Zeile4
13.01.2009 09:50:00
Josef
Hallo Luschi!
Danke für Deine Antwort und Deine Hilfe. Jetzt passt es.
jason55

301 Forumthreads zu ähnlichen Themen

Daten ab bestimmter Anzahl Zeile abschneiden
Joachim

Hi,
ich kopiere auf mein Sheet Daten in eine Textbox und wenn die Informationen zu lange sind, schneide ich sie:
If Len(TextBox7.Value) GRÖSSER 300 Then TextBox7.Value = Left(TextBox7.Value, 300) & "... (mehr Informationen finden Sie online !)"
Nun meine Frage: geht so was auch...
02.09.2008 13:37:00
Thread-ID: 1006769
6 Beiträge
Anzeige
Code soll erst ab bestimmter Zeile funktionieren
Joachim

Hi,
wie kann ich denn erreichen, dass der nachfolgende Code erst ab der 10. Zeile überprüft.
Zeilen 1-9 sollen unbeachtet bleiben:
Sub Kopieren() Dim lngRow As Long lngRow = Cells(Rows.Count, "B").End(xlUp).Row MsgBox lngRow End Sub
Danke mal
Joachim
04.12.2008 11:54:00
Thread-ID: 1030126
3 Beiträge
Filtern mit mehreren Einträgen pro Zeile
Nico

Hallo,
ich bin gerade dabei eine Kontaktliste zu erweitern.
Pro Zeile ist ein Kontakt eingetragen.
Ich will die Kontakte jetzt gruppieren können.
Ich möchte einen Kontakt z.B. drei Kathegorien zuordnen ("Freunde", "München", "Schule")
Bei einem anderen soll z.B. stehen "Beka...
14.01.2009 19:41:32
Thread-ID: 1039783
12 Beiträge
Anzeige
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
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
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Autofilter beginnt eine Zeile zu spät
tco99


Hallo zusammen,
ich habe folgendes Problem:
ich habe eine Beispielmappe gemacht. In dieser Mappe gibt es das Blatt "Daten" und das Blatt "Ausgabe". Mit einer Userform und den ComboBoxen in dieser Userform filtere ich die Daten und übertrage sie auf das Blatt "Ausgabe". Das Übertrag...
05.03.2010 10:46:51
Thread-ID: 1143590
8 Beiträge
Zeilen einfügen bei Autofilter
Martin

Hallo liebe Herber-Gemeinde,
ich habe in einer Datei einen Autofilter gesetzt und möchte mehrere gefilterte Zeilen in eine andere Datei mit identischem Aufbau hineinkopieren. Die Spaltenanzahl und Benennung ist in der 2. Datei wie gesagt genau derselbe und dort verwende ich ebenfalls einen...
03.08.2010 11:09:11
Thread-ID: 1170134
5 Beiträge

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
5
6
2
11
6
4
2
2
7
4
1
2
3
2
1
1
3
6
2
3
8
2
9
2
5