Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige