Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter über InputBox "beginnt mit..."

Filter über InputBox "beginnt mit..."
26.01.2005 19:10:47
Tarzan
Hallo,
in Spalte B beginnend ab Zeile 5 stehen Auftrags-Nummern (z.B.: K 1234/1) in Spalte C ebenfalls beginnend ab Zeile 5 stehen Gewichte.
Nun möchte ich mittels Makro (InputBox) einen Filter auf Spalte B setzen. Das Kriterium soll benutzerdefiniert sein: beginnt mit...
Mit dem zweiten Makro (ebenfalls InputBox) möchte ich einen Filter auf Spalte C setzen. Das Kriterium soll benutzerdefiniert sein: enthält...
Hab das Archiv schon durchstöbert, aber keine benutzerdefinierten Filter mittels Makro/InputBox gefunden.
Bin über jeden Vorschlag/Lösung dankbar.
Vielen Dank für Eure Bemühungen.
Gruß,
Tarzan

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

Betreff
Datum
Anwender
Anzeige
AW: Filter über InputBox "beginnt mit..."
26.01.2005 19:40:41
Josef
Hallo Tarzan! (realnames sind hier üblich und erwünscht!)
VBA gut?

Sub filterInput()
Dim krit1 As String
Dim krit2 As String
Dim rng As Range
Set rng = Range("B5:C100") 'bereich anpassen!
krit1 = InputBox("Bitte Kriterium für Spalte B eingeben!", "Kriterium")
If krit1 = "" Then Exit Sub
krit2 = InputBox("Bitte Kriterium für Spalte C eingeben!", "Kriterium")
If krit2 = "" Then Exit Sub
rng.AutoFilter Field:=1, Criteria1:=krit1 & "*"
rng.AutoFilter Field:=2, Criteria1:="*" & krit2 & "*"
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Filter über InputBox "beginnt mit..."
27.01.2005 00:39:56
Tarzan
Hallo Sepp,
sorry, hab was falsches ausgewählt, VBA eher schlecht.
Hab das Makro jetzt eingebaut, funktioniert super. Danke.
Ist es auch möglich, dass nach dem ausführen des Makros nicht dieser "Filter-Pfeil" bzw. "Filter-Symbol" sich in der Zelle B5 befindet. Möchte die ganze Darstellung ohne "Filter-Symbol" in der Zelle.
Gibt es dafür auch ne´ Lösung?
Vielen Dank.
Stefan (alias Tarzan)
AW: Filter über InputBox "beginnt mit..."
27.01.2005 17:56:00
Josef
Hallo Stefan!
Das geht auch!
Ergänze die beiden Zeilen in dieser Art!

rng.AutoFilter Field:=1, Criteria1:=krit1 & "*", Visibledropdown:=False
rng.AutoFilter Field:=2, Criteria1:="*" & krit2 & "*", Visibledropdown:=False

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Filter über InputBox "beginnt mit..."
27.01.2005 21:24:59
Stefan
hallo sepp,
funktionier super, vielen dank. heb´ den filter mit folgendem code wieder auf:

Sub autofilter_reset()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

nochmal vielen dank für die schnelle hilfe.
gruß,
stefan

302 Forumthreads zu ähnlichen Themen

AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Leere Filtern funktioniert nicht - wo Fehler?
Wolfgang

Hallo,
der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
04.12.2008 18:50:00
Thread-ID: 1030277
4 Beiträge
Filtern, Sverweis geht wohl nicht?
Angela

Hallo,
Habe im Tab 1 eine sehr lange Liste, ca von B5:C5000.
Nun möcht ich gern auf Tab 2 eine neue Liste erstellen, ausgehend von Tab 1 B5:B5000 über Combobox oder anders eben.
Es soll auf Tab 2 durch selektion Daten ausgewählt werden und in Tab2 geschrieben werden.
Angenommen...
17.01.2009 21:29:04
Thread-ID: 1041000
25 Beiträge
Autofilter über Makro funktioniert nicht mehr
Ramon

Hallo Excel-Freunde,
ich habe ein ganz komisches Problem:
Wenn ich im Makro die Autofilter-Funktion einbinde, wird beim ausführen des entsprechenden
Makros in dem Modul der Begriff "Autofilter" gelb markiert, mit der Fehlermeldung:
"Fehler beim kompilieren:
Methode oder Date...
23.01.2009 15:01:21
Thread-ID: 1043020
3 Beiträge
Auto open funktioniert nicht richtig
Bodo

Guten Tag.
Ich versuche diesen Code hier zum Laufen zu bringen.
Sub Auto_open() ' Auto_öffnen Makro ' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _ Modus schalten. Sheets("Grundwerte").Visible = False Sheets("Hinweise").Select ActiveW...
25.02.2009 14:31:35
Thread-ID: 1053941
6 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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