Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Spezialfilter

Makro für Spezialfilter
02.01.2006 13:27:53
Max
Hallo,
folgendes Problem:
möchte durch drücken eines CommandButtons erreichen, dass ein Spezial-
filter abläuft. Dieser soll dann eine Liste mit 2500 Datensätzen nach Rechnungs-
nummern zwischen zwei Zahlen herausfiltern. (Bsp alle von 6000-7000)
Vielen dank für eure Hilfe
Gruß Max

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

Betreff
Datum
Anwender
Anzeige
AW: Makro für Spezialfilter
02.01.2006 13:52:25
Eugen
hi
Range("A1:A14").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C1:D2"), CopyToRange:=Range("e1"), Unique:=False
in dem bereich c1:d2 musst du deine suchkriterien
reinschreiben zh.b.
C1 D1
rechnr rechnr
>6000 mfg
AW: Makro für Spezialfilter
02.01.2006 13:52:36
hannes
Hallo Maxl
Als erstes Zwischen Überschrift und Daten drei Freizeilen lassen
dann Folgendes
Sub Suche()
Dim Wert1, Wert2
Wert1=Inputbox("Anfangswert")
Wert2=Inputbox("Endwert")
Sheets("Tabelle1").Range("Spalte wo deine Rechnungsnummern stehen2").Value = ">=" & Wert1
Sheets("Tabelle1").Range("Spalte wo deine Rechnungsnummern stehen3).Value = " Columns("A:bis soweit deine Liste geht").AdvancedFilter Action:=XlFilterCopy, CriteriaRange:=Range( _ "A1:bis soweit deine Liste geht3"), CopyToRange:=("wohin du eine Kopie hinhaben willst"), Unique: = True
So müsste der Makro stimmen, wird wahrscheinlich auch eine elegantere Lösung geben aber nicht von mir.
Grüze aus Ö hannes
Anzeige
AW: Makro für Spezialfilter
02.01.2006 20:10:00
Max
Danke funktioniert bestens.
Grüße Max

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige