Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

304 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
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
Anzeige

Links zu Excel-Dialogen

UserForm

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
1
4
7
1
2
2
5
6
4
1
4
4
1
8
2
13
2
12
2
2
2
1
3
2