Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion

Forumthread: Suchfunktion

Suchfunktion
25.01.2004 19:46:31
Gunter
Hallo Leute,
ich hätte gern eine Suchfunktion wie mit Strg + F aber dauerhaft
verfügbar in einer Symbolleiste.
Ich stelle mir das so vor, dass man in ein Textfeld (heißen die Dinger in Symbolleisten so?) einen Suchbegriff eingeben kann, der dann da stehenbleibt, bis was neues eingegeben wird.
Dann müsste da noch ein Button zum suchen/weitersuchen sein.
Ich hoffe, ihr könnt mir da helfen.
Grüße Gunter
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion
25.01.2004 20:39:00
Josef Ehrensberger
Hallo Gunter!
Dieser Code ist einem Beispiel von Hans nachempfunden.


'DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteSearchBar
End Sub
Private Sub Workbook_Open()
CreateSearchBar
End Sub
'allgemeines Modul
Sub CreateSearchBar()
'Menüleiste mit Textfeld und Button zum Suchen
Dim oBar As CommandBar
Dim oCombo As CommandBarControl
Dim oBtn As CommandBarButton
DeleteSearchBar
With Application.CommandBars.Add(Name:="Suchen")
   .Visible = True
   .Position = msoBarTop
   Set oCombo = .Controls.Add(Type:=msoControlEdit, temporary:=True)
   Set oBtn = .Controls.Add(Type:=msoControlButton, temporary:=True)
End With
With oCombo
   .OnAction = "Search"
   .Width = 150
End With
With oBtn
   .Caption = "Suchen"
   .OnAction = "Search"
   .Style = msoButtonIconAndCaption
   .FaceId = 141
End With
End Sub
Sub Search()
Dim strSrch As String
strSrch = Application.CommandBars("Suchen").Controls(1).Text
If strSrch = "" Then Exit Sub
    Cells.Find(What:=strSrch, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
End Sub
Sub DeleteSearchBar()
On Error Resume Next
Application.CommandBars("Suchen").Delete
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
Danke, klappt perfekt oT
25.01.2004 20:51:34
Gunter
oT
Danke für die Rückmeldung! o.T.
25.01.2004 21:09:39
Josef Ehrensberger
/
;

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