Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
04.05.2024 08:24:07
Sortieren und übertragen
04.05.2024 06:52:42
Daten aus anderem Registerblatt in ein neues übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

eingebettete TextBox

eingebettete TextBox
11.09.2005 22:23:36
Lian
Hallo Excelfreaks ;)
eine große unübersichtliche Exceltabelle möchte ich mit einer längst notwendigen Suchoption versehen. Dazu habe ich eine Textbox und einen Suchbutton eingebettet.
Die Textbox beinhaltet bereits einen möglichen Suchbegriff. Nach einem Klick in die Textbox, soll dieser verschwinden und bereit zur Eingabe eines neuen Sucheintrags sein.
Nach anschließendem Bestätigen der Enter-Taste bzw. nach Klick auf den nebenliegenden Suchen-Button soll unter Verwendung des Autofilters nur alle Zeilen eingeblendet werden in deren vordefinierter Spalte dieser Eintrag gefunden wurde.
Für eure mühevolle Hilfe bedanke ich mich im Voraus und wünsche euch einen guten Start in die neue Woche!

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eingebettete TextBox
11.09.2005 22:37:31
Matthias
Hallo Lian,
das ganze ist in meinem Beispiel ohne Autofilter, aber vielleicht taugt es dir:
auf Tabellenblatt:
Einen Button "SuchenButton", Eine Textbox "TextBox1", beides aus der Steuerelement-Toolbox
Code ins Arbeitsblattmodul:

Private Sub SuchenButton_Click()
Const Spalte = 1 '1 für Spalte A
Rows.Hidden = False
If TextBox1.Value = "" Then Exit Sub 'nur einblenden bei leerem Suchbegriff
Dim lz As Long, i As Long
lz = Cells(Rows.Count, Spalte).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To lz
Rows(i).Hidden = InStr(Cells(i, Spalte), TextBox1.Text) = 0 'prüft auch Teilinhalte!
Next i
Application.ScreenUpdating = True
End Sub
'löscht Textbox beim Anklicken
Private Sub TextBox1_GotFocus()
TextBox1.Value = ""
End Sub

Gruß Matthias
Anzeige
so leider noch nicht verwendbar
12.09.2005 10:13:04
Lian
Vielen Dank für die Lösung. Das Script funktioniert soweit ganz gut. So zeigt es nur noch die Suchergebnisse der Liste an.
Dies ist jedoch auch ein großes Manko. Ich habe leider keinen Platz für eine weitere Schaltfläche, die den Ursprungszustand wiederherstellt.
Nach Schließen bzw. Vor dem Öffnen sollten immer alle Einträge angezeigt werden.
- Deshalb wollte ich den Autofilter dafür nutzen -
Wäre es vielleicht möglich, dass wenn nichts in der TextBox1 steht und man auf Suchen klickt damit der Ursprungszustand wieder hergestellt wird? Das wär eine schöne Lösung!
Besten Dank im Voraus!
Anzeige
AW: so leider noch nicht verwendbar
12.09.2005 13:47:17
Matthias
Hallo Lian,
Wäre es vielleicht möglich, dass wenn nichts in der TextBox1 steht und man auf Suchen klickt damit der Ursprungszustand wieder hergestellt wird?
Hast du es versucht? Es müsste doch klappen wegen dieser Zeilen:

Rows.Hidden = False
If TextBox1.Value = "" Then Exit Sub 'nur einblenden bei leerem Suchbegriff

Und beim Öffnen alle Zeilen einblenden ginge so:
In "DieseAbeitsmappe"

Private Sub Workbook_Open()
Sheets("Dein Tabellenname").Rows.Hidden = False
End Sub

Gruß Matthias
Anzeige
AW: so leider noch nicht verwendbar
12.09.2005 22:21:59
lian
Hallo.
Erst einmal vielen Dank für die Mühe!
Dein Script funktioniert entgegen der ersten Offenbarungen nun doch fehlerfrei (Ursache war ein Kompatibilitätsproblem mit einem weiteren Makro).
Gern hätte ich jedoch noch eine kleine Erweiterung eingbaut. So habe ich einen weiteren Button, mit dem man nicht nach einem bestimmten Zeichenfolge (oder einen Teil davon) suchen soll, sondern nach allen Zellen, die eine Zeichenfolge enthalten (also nicht leer sind).
Dazu habe ich dein Script kopiert und mit der IsEmpty-Funktion angepasst, was ich auf Anhieb in der Kürze der verbleibenden Zeit jedoch nicht fehlerfrei zum Laufen bekam.
Hast du eine Idee?
Anzeige
kleines Detail noch...
12.09.2005 22:22:47
lian
Hallo.
Erst einmal vielen Dank für die Mühe!
Dein Script funktioniert entgegen der ersten Offenbarungen nun doch fehlerfrei (Ursache war ein Kompatibilitätsproblem mit einem weiteren Makro).
Gern hätte ich jedoch noch eine kleine Erweiterung eingbaut. So habe ich einen weiteren Button, mit dem man nicht nach einem bestimmten Zeichenfolge (oder einen Teil davon) suchen soll, sondern nach allen Zellen, die eine Zeichenfolge enthalten (also nicht leer sind).
Dazu habe ich dein Script kopiert und mit der IsEmpty-Funktion angepasst, was ich auf Anhieb in der Kürze der verbleibenden Zeit jedoch nicht fehlerfrei zum Laufen bekam.
Hast du eine Idee?
Anzeige
AW: kleines Detail noch...
14.09.2005 02:09:04
Matthias
Hallo Lian,
blendet alle Zeilen, in denen Spalte A leer ist, aus:

Private Sub NichtLeerButton_Click()
Const Spalte = 1 '1 für Spalte A
Rows.Hidden = False
Dim lz As Long, i As Long
lz = Cells(Rows.Count, Spalte).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To lz
Rows(i).Hidden = Cells(i, Spalte) = ""
Next i
Application.ScreenUpdating = True
End Sub

Gruß Matthias
AW: kleines Detail noch...
14.09.2005 12:32:51
Lian
Vielen Dank!
Funktioniert :)
doch noch nen Fehler gefunden
14.09.2005 13:24:27
Lian
Hab nen Fehler in dem Script entdeckt.
Klickt man 2 mal auf die Schaltfläche zeigt es plötzlich wieder alle Einträge an. Es soll jedoch immer das gleiche Ergebnis anzeigen, nämlich, jenes was nach dem 1. Klick angezeigt wird.
Wie muss ich die an meine Anforderungen bereits angepasste Prozedur nun ändern, um immer das gleiche Ergebnis zu bekommen?
Anzeige
AW: doch noch nen Fehler gefunden
14.09.2005 13:45:29
Matthias
Hallo Lian,
hmm... kann mir den Fehler nicht erklären... lass mal "Rows.Hidden = False" raus.
Gruß Matthias
AW: doch noch nen Fehler gefunden
15.09.2005 16:17:39
Lian
das war die Lösung!
Hätte mir damals auch selbst einfallen können!
Danke für die Hilfe!

300 Forumthreads zu ähnlichen Themen

Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Cursor springt in Pampa (MultiLine TextBox)
Kilo

Hallo liebe VBA Profis
(Danke an Jürgen, der sich meines Problems annehmen wollte, aber der UpLoad meiner Datei war irgendwie fehlgeschlagen - hier der 2. Versuch)
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene...
11.08.2008 12:15:00
Thread-ID: 1000795
5 Beiträge
In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Fokus in Textbox und Curser hinter Text
Reinhard

Hallo Wissende,
Autofilter "vergißt" einige Zeilen wenn mehr als 1000 unterschiedliche Listeneinträge da sind.
Deshalb bastelte ich mir folgenden Code. man hat im Blatt eine TextBox und eine Listbox. Je nach Eingabe in die Textbox erscheinen in der Listbox nur die Einträge die anfangs s...
12.09.2008 12:14:38
Thread-ID: 1009326
6 Beiträge
Externen Datensatz in TextBox einfügen
Wolfgang

Hallo,
Nachdem ich Ihr mir schon einmal sehr geholfen habt, versuche ich es noch einmal:
Ein Datensatz wird aus einer Datenbank (keine Access-Datenbank) ins Clipboard kopiert, danach in Excel eine UserForm mit einer TextBox geöffnet, die den Datensatz aufnehmen und danach an ein Excel-T...
19.09.2008 16:28:23
Thread-ID: 1011092
8 Beiträge
Druckerauswahl in TextBox 'auslagern'
Henner

Hi,
ich drucke (erzeuge) in meiner Mappe über den folgenden Code (ein PDF File):
Sub Print() Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "FreePDF XP auf Ne02:", Collate:=True Application.ActivePrinter = "Brother...
07.10.2008 11:58:00
Thread-ID: 1014674
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

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
1
6
4
2
4
9
4
5
7
1
2
2
2
2
3
3
1
4
9
9
2
2
5
2
1