Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 19:27:32
Ungewollter Zeilensprung beim Löschen einer Spalte
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filterfunktion auf Zelle setzen VBA

Forumthread: Filterfunktion auf Zelle setzen VBA

Filterfunktion auf Zelle setzen VBA
08.12.2007 11:03:18
Mathias
Hallo Excelfreunde,
ich habe schon etwas im Forum rumgesucht, bin leider nicht fündig geworden, deshalb hoffe ich ihr könnt mir helfen.
- In Zelle C4 möchte ich das Suchkriterium eingeben
- der Suchbereich ist A6:F3000
- Wird dann mit ENTER bestätigt sollen nur noch alle Zeilen, die einen Teil oder den gesamten Suchbegriff enthalten angezeigt werden
-kleine Zusatzfunktion, wird der Zellinhalt in C4 gelöscht, sollten alle Zeilen wieder sichtbar werden
habt ihr eine Idee wie, man das umdetzen könnte?
MfG
Mathias

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Filterfunktion auf Zelle setzen VBA
08.12.2007 11:42:19
ransi
HAllo MAthias
Teste mal diesen Code:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr
Dim L As Long
Dim bereich As Range
Dim appscr
If Target.Address <> "$C$4" Then Exit Sub
appscr = Application.ScreenUpdating
Application.ScreenUpdating = False
If Target = "" Then
    Rows.Hidden = False
    GoTo raus
End If
Set bereich = Range("A6:F3000")
bereich.Copy
arr = Split(Zwischenablage, vbCrLf)
For L = 0 To UBound(arr) - 1
    bereich.Rows(L + 1).EntireRow.Hidden = (InStr(arr(L), Target.Text) = 0)
Next
raus:
Application.ScreenUpdating = appscr
End Sub


Public Function Zwischenablage() As String
Dim CLP_TXT As New DataObject
On Error Resume Next
CLP_TXT.GetFromClipboard
Zwischenablage = CLP_TXT.GetText
End Function

ransi

Anzeige
AW: Filterfunktion auf Zelle setzen VBA
08.12.2007 13:40:17
Luschi
Für alle die den Tipp von Ransi ausprobieren,
damit das Ganze auch funktioniert, muß folgender Vba-Verweis gesetzt sein:
Microsoft Forms 2.0 Object Library
Gruß von Luschi
aus klein-Paris

AW: Filterfunktion auf Zelle setzen VBA
08.12.2007 13:48:19
Daniel
... oder ne Userform angelegt werden, dann gehts auch.
@Luschi
Wo und wie muss denn so ein Verweis eingetragen werden ?
Gruß, Daniel

Anzeige
AW: Filterfunktion auf Zelle setzen VBA
08.12.2007 14:05:00
Luschi
Hallo Daniel,
Vba-Verweise setzt man im Vbna-Editor unter: Extras - Verweise...
Hinweis: Wenn man ein Formular anlegt, dann setzt Excel diesen Verweis automatisch.
Gruß von Luschi
aus klein-Paris
;

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Anzeige
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Autofilter - "Enthält" in Zelle
daniel

Hallo Forum.
ich habe eine Tabelle, in A1 die Artikelnummer und in B1 die Artikelbezeichnung (3000 Zeilen)
Der Autofilter funktioniert mit "Benutzerdefiniert" und "enthält" recht gut...
nur würde ich gerne eine Zelle als Suchkriterium nutzen.
Bsp. Wenn ich in C3 nun das Wort Far...
07.11.2008 11:21:00
Thread-ID: 1022589
2 Beiträge
Wert vom ausgewählten Filter in Zelle
Kurt

Hallo nochmal,
ich möchte gern den Wert vom Filter in die Zelle N1 setzen.
Hatte dies
Selection.AutoFilter Field:=4, Criteria1:=wert
ActiveSheet.Range("N1").Select = wert
mfg Kurt P
01.12.2008 15:41:00
Thread-ID: 1029285
3 Beiträge
Anzeige
Autofilter Ein - Wert in Zelle
Lutz

Hallo,
ich möchte gern den mit Autofilter selektierten Wert in einer separaten Zelle anzeigen lassen.
Nach Möglichkeit ohne Makro.
Ich habe im Archiv keine passende Anregung gefunden.
Beispieldatei
https://www.herber.de/bbs/user/59331.xls
Danke für die Hilfe,
Lutz <...
10.02.2009 23:01:45
Thread-ID: 1049393
3 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Tabellen sortiere und nach wert in zelle
Walli

Guten Tag,
ich habe folgendes Makro für das Sortieren der Tabellenblätter
gefunden, funktioniert auch.:
Sub Tabellenblätter_sortieren() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets....
21.02.2009 11:24:43
Thread-ID: 1052581
7 Beiträge
Anzeige
Zelleneinträge in Filterauswahl
Leitz

Hallo!
Komme mit dem Einfügen von Werten aus VBA Speicher in Filterauswahl nicht zurecht.
Selection.AutoFilter Field:=12, Criteria1:=""
Nun möchte ich in die Zellen der Spalte D den Speicherinhalt von "strBearbeiter" einfügen
Wie lautet der Code, so dass nur die gefilterten Zei...
10.03.2009 08:28:50
Thread-ID: 1058462
5 Beiträge
gefilterte Zeilen aus TB1 in TB2 anzeigen lassen
Kellerkind42

Hallo.
Ich filtere in Tabelle1, ab Zeile 6 Daten.
Wie kann ich mir per Formel die gefilterten Daten in Tabelle2 anzeigen lassen?
Gruß Reinhardt.
19.03.2009 12:40:16
Thread-ID: 1061805
2 Beiträge
Hyperlink Ziel Zelle farbig anzeigen!
Wolfgang

Hallo,
benutze Hyperlinks um mich im Dokument zu bewegen.
Frage wenn ich nun zu Blatt 1 nach A32 springe, kann ich dann A32 farbig anzeigen lassen, und geht dann die Farbe wieder weg?
Vielen Recht herzlichen Dank für Eure Mühe.
Wolfgang
26.03.2009 08:30:54
Thread-ID: 1064093
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige