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

Datensätze automatisch ausblenden

Forumthread: Datensätze automatisch ausblenden

Datensätze automatisch ausblenden
Thomas
Hallo
Ich habe mehrere grosse Dateien (500-2000 Datensätze) und benötige eine gute und schnelle Suchfunktion (Makro).
Bei der Eingabe des Suchbegriffes in ein bestimmtes Feld sollten alle Zeilen, welche diesen Wert nicht enthalten, automatisch ausgeblendet werden.
Wenn ich also ein "M" eingebe, sollten Meier, Müller oder Meer noch bleiben. Tippe ich aber "Me" ein, ist alles ausgeblendet ausser Meier und Meer.
Weiss jemand Rat?
Danke
Thomas
Anzeige
AW: Datensätze automatisch ausblenden
17.08.2009 07:36:20
Hajo_Zi
Hallo Thomas,
warum nicht Autofilter? Beginnt nicht mit

AW: Datensätze automatisch ausblenden
19.08.2009 22:11:00
Thomas
Hallo Hajo
Diese Variante kenne ich. Ist zwar einfach, aber zu aufwändig, wenn man sie oft braucht.
Was ich deshalb suche, ist die Eingabe in ein Feld, in welchem während der Eingabe die Filterfunktion beginnt.
Gruss Thomas
Anzeige
AW: Datensätze automatisch ausblenden
17.08.2009 08:13:59
fcs
Hallo Thomas,
hier mein Lösungsvorschlag.
Gruß
Franz 
Sub Finden()
Application.ScreenUpdating = False
With ActiveSheet
.Cells.EntireRow.Hidden = False
'Hier ggf. Die Eingabezelle und den zu durchsuchenden Bereich anpassen, _
zur Zeit B2:Bxxx
Call QuickSearch(wks:=ActiveSheet, strFinden:=Range("A1"), _
Bereich:=.Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)))
End With
Application.ScreenUpdating = True
End Sub
Sub QuickSearch(wks As Worksheet, strFinden As Variant, Bereich As Range)
Dim rngEinblenden As Range, rngSearch As Range, Zeile As Long
On Error GoTo Fehler
Set rngSearch = Bereich
Do Until IsError(Application.WorksheetFunction.Match(strFinden & "*", rngSearch, 0))
Zeile = Application.WorksheetFunction.Match(strFinden & "*", rngSearch, 0)
If rngEinblenden Is Nothing Then
Set rngEinblenden = rngSearch.Cells(Zeile, 1).EntireRow
Else
Set rngEinblenden = Application.Union(rngEinblenden, _
rngSearch.Cells(Zeile, 1).EntireRow)
End If
If Zeile

Anzeige
AW: Datensätze automatisch ausblenden
17.08.2009 10:07:53
{Boris}
Hi Thomas,
ich löse sowas immer mit einer Textbox aus der Steuerelemente-Leiste und lass im Change-Ereignis die Tabelle filtern.
Private Sub TextBox1_Change()
Dim Sb As String
Sb = Tabelle1.TextBox1.Text
If Sb  "" Then
Range("A4").AutoFilter Field:=3, Criteria1:="=*" & Sb & "*", Operator:=xlAnd
Else
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End If
End Sub
In diesem Fall wird nach "enthält" geuscht - das kannst Du ja auf Deine Bedürfnisse anpassen.
Grüße Boris
Anzeige
AW: Datensätze automatisch ausblenden
19.08.2009 23:11:16
Thomas
Hallo Boris
DAS ist es genau!!! Super!
Eine Frage habe ich noch:
Wo muss ich die Formel ändern, damit ich meine Spalten auswählen kann? zB: Spalte "B bis E"
Denn je nach Tabelle, wo ich das einsetze, ist der Range ein anderer.
Vielen Dank!
Thomas
AW: Datensätze automatisch ausblenden
20.08.2009 11:00:37
{Boris}
Hi Thomas,
in meinem Fall beginnt die Liste bei A4 (da ist also der erste Filter):
Range("A4").AutoFilter Field:=3
Und gefiltert wird nach dem 3. Filter: Field:=3 - in diesem Fall also Spalte C.
Und das musst Du nur auf Deine Bedürfnisse anpassen.
Grüße Boris
Anzeige
AW: Datensätze automatisch ausblenden
20.08.2009 15:09:20
thomas
Danke Boris
Die Lösung klingt gut, habe aber trotzdem ein Problem damit... ;-)
Wie genau muss ich die Formel ändern, wenn ich in allen Spalten von C bis H suchen will?
Danke und Gruss
Thomas
AW: Datensätze automatisch ausblenden
20.08.2009 15:16:47
{Boris}
Hi Thomas,
da haben wir uns missverstanden. Die Suche ist auf EINE Spalte beschränkt.
Folgender Vorschlag:
Verkette alle Spalten in einer zusätzlichen Hilfsspalte (=C2&D2&E2&....) und wende die Lösung dann auf die EINE Hilfsspalte an.
Grüße Boris
Anzeige
AW: Datensätze automatisch ausblenden
20.08.2009 15:45:25
thomas
Danke Boris
Die Lösung klingt gut, habe aber trotzdem ein Problem damit... ;-)
Wie genau muss ich die Formel ändern, wenn ich in allen Spalten von C bis H suchen will?
Danke und Gruss
Thomas
AW: Datensätze automatisch ausblenden
20.08.2009 16:22:22
{Boris}
Hi Thomas,
das ist keine Formel - das ist VBA-Code.
Lad mal einen Ausschnitt Deiner Mappe hoch (inkl. des bereits angelegten Textfeldes etc.) Der Aufbau sollte mit dem Deiner eigentlichen Mappe identisch sein. Intime Daten vorher anonymisieren!
Grüße Boris
Anzeige
Super, danke...
21.08.2009 00:23:48
Thomas
Hi Boris
Ich hab's eben begriffen, es klappt mit der Hilfsspalte. Das ist so einfach wie genial!!
Meine Mitarbeiter werden es dir danken ;-)
Merci vielmal
Gruss Thomas
:-) _oT
21.08.2009 09:06:44
{Boris}
Grüße Boris
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
MsgBox abfolge mit BlätterAusblenden
Eggi

Hallo Zusammen
Habe ein wenig mühe damit das Makro BlaetterAusblenden am richtigen Ort zu plazieren.
Es soll so ablaufen: Msgbox "Formulare zurücksetzen ja/nein. falls nein *BlaetterAusblenden* falls ja weiter zu msgbox "Wollen Sie wirklich... (diese Abfrage ist nur zur letzen nochmali...
15.08.2008 15:23:51
Thread-ID: 1002204
10 Beiträge
Anzeige
Spalten Ausblenden in freigegebener Arbeitsmappe
Marco

Hallo,
ich möchte gerne in einer freigegeben Arbeitsmappe bestimmte Spalten per Klick auf ein Symbol aus- und wieder einblenden können.
Mein Problem ist der Blattschutz in der freigegebenen Arbeitsmappe. Aufgrund meiner bescheidenen VBA-Kenntnisse, weiß ich nicht, an welcher Stelle des...
17.08.2008 22:56:20
Thread-ID: 1002488
3 Beiträge
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Einzelne Tabellen ausblenden
Peter

Hallo,
hab folgendes Problem. Ich habe eine Arbeitsmappe mit 15 Arbeitsblättern. Von diesen 15 AB sollen jedoch nur die Tabellen 1-10 sichtbar sein. Der Code, den ich mir gebastelt habe funktioniert leider nicht. Vielleicht stehe ich auch einfach nur auf dem Schlauch.
Hier der Code:
...
20.08.2008 22:33:32
Thread-ID: 1003334
7 Beiträge
Bei Ausdruck Leerzeilen ausblenden
Christian

Guuuuten Morgen zusammen,
ich suche seit einer knappen Stunde eine Lösung für folgendes, wohl sehr einfaches Problem, finde aber nur Spezial-Lösungen, die ich leider nicht entsprechend reduziert bekomme:
Habe eine Tabelle von A1 bis K59; Leerzeilen können im Bereich 8 bis 47 vorkommen;...
27.08.2008 09:08:00
Thread-ID: 1004971
15 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Anzeige
Ausblenden von Spalten abhängig vom Autofilter
Spalten

Ich möchte gerne bestimmte Spalten abhängig vom Wert des Autofilters in einer anderen Spalte ausblenden.
Beispiel: In Spalte A wähle ich im Autofilter "Dieter" und dann sollen die Spalten J bis R ausgeblendet werden. Wähle ich dann "Volker" sollen die Spalten M bis W ausgeblendet werden.
29.08.2008 15:45:36
Thread-ID: 1005878
2 Beiträge
Anzeige
#NV ausblenden
Bolo

Guten Morgen liebe Leute!
Ich sitz hier mal wieder an einer wunderschönen Exceltabelle und habe ein Problemchen. Ich habe hier per sverweis Verweise auf andere Tabellen erstellt die soweit auch ganz gut funktionieren. Allerdings ist meine Tabelle aktueller als die Tabellen auf die ich verwe...
01.09.2008 08:36:38
Thread-ID: 1006318
5 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Spalten ausblenden
Silke

Hallo,
habe ein kleines Problem ich habe eine Adressenliste geschrieben und möchte nun mir eine Geburtstagsliste und Telefonliste ausgeben lassen.
Dabei möchte ich nur auf eine bestimmte Zelle klicken, damit sie auf die Liste geht. Die Liste an sich ist ist sehr lang und ich möchte die...
02.09.2008 08:51:00
Thread-ID: 1006638
8 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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