VBA: Suchfunktion in Userform

Private Sub CommandButton26_Click() 'Inhalt der Textbox TB_TicketID in Zwischenablage kopieren und UserForm beenden Set doInhalt = New DataObject doInhalt.SetText TB_TICKETID.text doInhalt.PutInClipboard Me.Hide 'Suche nach der Zelle, in der der Text aus der Zwischenablage steht Dim zelle As Range For Each zelle In ActiveSheet.Range("C3:C4000").Cells If zelle.text = "IM55217731" Then zelle.Activate Exit For End If Next 'UserForm starten Unload DC_Ansicht2 DC_Ansicht2.Show Call UserForm_Initialize End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
wesshalb über die Zwischenablage?
Hier der Code mit Suche über eine Textbox auf einer Userform, miitels .Find

Private Sub CommandButton26_Click()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = Me.TB_TICKETID.Value
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(3).Find(strSuchbegriff, LookIn:=xlValues,  _
Lookat:= _
xlWhole)
If Me.TB_TICKETID = "" Then Unload Me
If Not rngTreffer Is Nothing Then
rngTreffer.Select
Unload Me
Else
MsgBox "Suchbegriff " & strSuchbegriff & " nicht gefunden."
End If
End Sub

Warum du die Userform mit .Hide ausblendest dann die UserForm schließt um sie erneut zu öffnen, weißt nur du und müsstest das ggf. noch einbauen.
Hier dann noch ein Code für eine Suche über eine InputBox. Einfach einen Button auf dein Tabellenblatt und dem Button das Makro zuweisen. Das Makro gehört in ein allgemeines Modul.

Public Sub Suchen()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Bitte Suchbegriff eingeben", "Suchen")
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(3).Find(strSuchbegriff, LookIn:=xlValues,  _
Lookat:= _
xlWhole)
If strSuchbegriff = vbNullString Then Exit Sub
If Not rngTreffer Is Nothing Then
rngTreffer.Select
Else
MsgBox "Suchbegriff " & strSuchbegriff & " nicht gefunden."
End If
End Sub

Gruß Werner

Wow, herzlichen Dank. Es funktioniert!
Ich stehe VBA-technisch noch recht nah am Anfang, daher war es eine bloße Überlegung von mir, den Text in die Zwischenablage zu kopieren um anschließend danach zu suchen. Das ganze habe ich über VBA-Aufzeichnung gemacht, daher der unprofessionelle Charakter. ;)
Noch zum weiteren Verständnis: Die geöffnete UserForm ist eine View auf den Datensatz in der aktuellen Zeile. Es gibt Buttons, um vor und zurück zu blättern, aber keinen Button, um nach einer bestimmten Nummer der Datensätze zu suchen. Diesen habe ich nun eingefügt. D.h. ich gebe in der UserForm die Nummer ein, klicke auf den Suchbutton, schließe dann die UserForm, suche die entsprechende Zeile und starte die UserForm wieder.
Tausend Dank auf jeden Fall für die Hilfe! Mittlerweile ist aus meiner View schon eine kleine Anwendung geworden, die jetzt endlich auch über eine Suchfunktion verfügt! :)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

141 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Suchfunktion in Userform

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

141 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread