Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Filtern mit Auswahl

VBA Filtern mit Auswahl
27.01.2004 08:18:49
Thorsten
Hallöle
Ich habe, dank Euch, mit VBA ein Makro erstellt, dass u.a. nach einem bestimmten Wert filtert (Autofilter).
Ich möchte gern, dass man bei Aufruf des Makros eine Box geöffnet bekommt, in der ich das Wort, nach dem gefiltert werden soll, selbst eingeben kann und den Wert danach in eine Variable zu schreiben. Damit ich nicht für jede neue Abfrage mit einem anderen Filterwort den Code ändern muss.
Ist das umzusetzen?
Wenn jemand einen Tip hat...
Gruß Thorsten

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Filtern mit Auswahl
27.01.2004 08:37:50
AndreasS
Hallo,
prinzipielle geht das so:

Sub DeinMakro
dim i as string
i = inputbox ("Bitte Wort eingeben: ")
End Sub

AW: VBA Filtern mit Auswahl
27.01.2004 08:38:55
Thorsten
Uh.
So einfach ist das? :)
Probier ich gleich mal aus.
Dank Dir...
AW: VBA Filtern mit Auswahl
27.01.2004 08:38:24
Josef Ehrensberger
Hallo Thorsten!
Wenn Du Deinen Code Postest, dann wäre es einfacher.
Gruß Sepp
AW: VBA Filtern mit Auswahl
27.01.2004 08:55:12
Thorsten
Hallo Sepp
Hier mal der Auszug mit dem Filtern:
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
With Range("A1")
.AutoFilter Field:=4, Criteria1:="trans*"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Ergebnis").Range("A1")
End With
Ziel ist es, dass ich nicht das "trans*" in dem Code schreibe, sondern über eine Auswahlbox in eine Datei und diese möglichst ein Filterkriterium.
Gruß Thorsten
Anzeige
AW: VBA Filtern mit Auswahl
27.01.2004 09:13:11
Josef Ehrensberger
Hallo Thorsten!
Z.B. so.


Dim strFilter As Variant
strFilter = InputBox("Filterkriterium:", "Filter", "Kriterium")
If strFilter = "" Then Exit Sub 'Makro verlassen wenn kein
                                'Kriterium angegeben
                                
                                
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
With Range("A1")
.AutoFilter Field:=4, Criteria1:=strFilter
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Ergebnis").Range("A1")
End With

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: VBA Filtern mit Auswahl
27.01.2004 10:01:05
Thorsten
Hey.
Vielen Dank.
Hat alles super funktioniert.
Gruß Thorsten
Danke für die Rückmeldung! o.T.
27.01.2004 10:59:20
Josef Ehrensberger
/

282 Forumthreads zu ähnlichen Themen

Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Anzeige
Ja-Nein Abfrage per VBA beantworten
rogger777

Hallo,
ich habe eine Sammelmappe in der von Mehreren Daten gesammt werden. Bevor die Datei geschlossen wird habe ich ich mit Hilfe von "workbook_BeforeClose" eine Abfrage eingebaut, die den jeweiligen Bearbeiter fragt, ob er das aktuelle Datum für den von ihm bearbeiteten Datensatz eingetra...
10.11.2008 15:16:00
Thread-ID: 1023218
6 Beiträge
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Anzeige
Mehrfachauswahl mittels VBA
Lorenz

Hallo Excelprofis.
Untenstehendes Makro wird nicht ausgeführt (entspricht wahrscheinlich der Excelfunktion von Werte einfügen., wo eine Mehrfachmarkierung nicht zulässig ist?). Wie sollte der Code lauten, daß er funktioniert?
NR = Target.Row
With ActiveSheet
With .Union(.Cells(N...
10.01.2010 20:15:58
Thread-ID: 1128737
7 Beiträge
Blätter auswählen mit VBA klappt nicht
Elmar

Hallo, Ihr Weisen, Klugen und Schlauen...
Ich habe 5 Blätter SAZ1, SAZ2, ... SAZ5 und 5 Blätter GA1, GA2, ... GA5 und noch einige weitere Blätter
Die sind je nach Kunde unterschiedlich mit Daten gefüllt, z.B. einmal SAZ1 Und GA1
mal SAZ1 2 3 und GA1 2 ...
Hier im Makro werden SA...
12.07.2010 22:00:15
Thread-ID: 1166703
5 Beiträge
msgbox Ja,nein Vorauswahl "Nein"
chris

Hallo und guten morgen.ich fasse mich kurz.
ich benutze eine msgbox mit VBYes und VBNo
Wie kann ich erreichen das die Norauswahl auf "Nein" ist.
Also wenn ich Enter drücke das Nein gewählt wird ?
Ohne das ich erst mit TAb auf den Nein Button springe.
Würde mich sehr über Hil...
21.09.2010 07:31:06
Thread-ID: 1178653
3 Beiträge
MsgBox mit ja/nein
Karsten

Hallo,
Bei diesem Code kann ich momentan nur mit ok bestätigen. Kann mir bitte jemand die Variante fürs Abbrechen codieren?
Danke für eure Hilfe
Gruß
Karsten
ActiveCell > 0 Then
MsgBox "Stunde Löschen?"
05.10.2010 09:06:57
Thread-ID: 1180692
6 Beiträge
Zelle gefüllt mit ja und nein
Joachim

Hallo,
bisher hab ich in einer Matrixformel eine Spalte nach dem Wert "ja" durchsucht. In diser Spalte kommt nur "ja" oder "nein" vor. Ich will aber nun nicht Spaltenbereich="ja", sondern als Zellbezug, also Spaltenbereich=F1. In F1 steht dann "ja" drin. Klappt wunderbar.
Was schreib ic...
15.03.2012 15:55:15
Thread-ID: 1255117
3 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
2
3
5
2
2
6
4
2
5
2
6
5
8
4
2
6
4
3
3
3
6
2
2
3
3