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
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion und Filter

Suchfunktion und Filter
27.11.2002 18:14:32
Günther Nebel
Hi alle!

Ich habe ein Worksheet in welches alle Formulare der Fa. eingetragen sind (Spalte A). In Spalte D steht ein Link auf das entsprechende Laufwerk/Ordner, damit die Kollegen einfach starten können.
Mit folgender Routine arbeite ich bislang, was ich allerdings nicht kann, ist eine Funktion einbauen, die mir die grau-markierten Zellen (positives Suchergebnis) filtert, damit nur das Ergebnis des Suchvorganges aufgezeigt wird. Kann man da irgendwas mit Autofilter machen?
Vielleicht habt ihr ne Idee, schönen Abend und Dank

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

Betreff
Datum
Anwender
Anzeige
im Nebel ;-)
27.11.2002 18:43:12
th.heinrich
hallo Günther,

aus Deinem posting

"Mit folgender Routine arbeite ich bislang."

kam leider in Forum nicht an.

gruss thomas


SORRY, hier die Routine
27.11.2002 20:27:25
Günther
Sub weitersuchen()
Dim rngFind As Range
Range("A5:E500").Select
Selection.Interior.ColorIndex = xlNone
Range("A5").Select
Dim strFind As String
strFind = InputBox("Suchbegriff eingeben, z.B. Aktenvermerk WICHTIG: Suchen Sie auch mit Wildcards, Beispiel: *ZBS*, oder Akten*")
If strFind = "" Then Exit Sub
Set rngFind = Columns("A:E").Find(strFind, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
With Worksheets(1).Range("a1:e1000")
Set c = .Find(strFind, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray25
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Anzeige
Re: SORRY, hier die Routine
29.11.2002 00:37:12
th.heinrich
hi Günther,

vielleicht hilft folgendes weiter.

Zählt alle Zellen mit rotem Hintergrund

Public Function ColCount(rngQuell As Range, intColorIndex As Byte) As Long
'by Nike 26.09.02
'Beispielfunktion mit Angabe des Zellbereichs
'Eingabe in das Blatt z.B. =BspFunc(A1:B1,3) auf Rot prüfen
Dim rng As Range
On Error GoTo Ende

ColCount = 0
For Each rng In rngQuell
If rng.Interior.ColorIndex = intColorIndex Then
ColCount = ColCount + 1
End If
Next
Set rngQuell = Nothing
Set rng = Nothing
Exit Function
Ende:
ColCount = 0
Set rngQuell = Nothing
Set rng = Nothing
End Function


gruss thomas

Anzeige
DANKE
01.12.2002 17:03:03
Günther Nebel
Lieber Thomas, komme heute erst wieder dazu den Blechdeppen einzuschalten und bin total happy, daß Du Dir die Mühe gemacht hast. Morgen ist ein neuer Tag und da werde ich mal die Routine probieren, von hier aus besten Dank, schönen Advent.

192 Forumthreads zu ähnlichen Themen

Filtern und Summieren bzw. Sortieren
Stephan

Hallo liebe Excel - VBA-Freunde,
ich habe ein ziemlich großes Problem. Aber vielleicht kann mir jemand von euch dabei helfen.
Habe das Problem, dass in Spalte A verschiedene Auftragsnummern existieren und einige davon mehrmals vorkommen. Nun möchte ich durch ein Makro so filtern, dass j...
16.10.2008 16:02:00
Thread-ID: 1016903
3 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
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
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
Zahlenwerte filtern und sortieren ?
Günther

Hallo zusammen,
ich hab dieses Problem:
In den Zellen B1:Z51 stehen diverse Zahlenwerte.
Diese Werte sollen in Spalte A ab A1 sortiert von klein nach groß aufgeführt werden,
jedoch jeder Zahlenwert nur einmal.
Vielen Dank im vorraus.
Gruß Günther
17.02.2009 14:25:00
Thread-ID: 1051486
3 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Wenn Und Funktion mit mehreren Bedingungen
Katja

Hallo Leute,
brauche bei einer Funktion Eure Hilfe.
Spalte F steht die Dienstart, z.B. VD, B, RB usw.
Spalte W steht die Stundenanzahl ohne Pausenabzug
Ich möchte jetzt folgendes berechnen:
WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
13.07.2009 13:55:40
Thread-ID: 1088213
2 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
4
7
6
6
3
2
2
7
1
2
5
4
3
4
3
2
1
3
2
1
4
7
5
9