Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1632to1636
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
Inhaltsverzeichnis

Suche auf Userform mitMultipage

Suche auf Userform mitMultipage
23.07.2018 11:25:31
Philip
Hallo zusammen
Ich habe eine Userform auf der ich eine Multipage habe mit 4 Seiten, auf jeder seite hat es mehrere Textboxen.
nun habe ich auf der Userform noch eine Textbox und ein Button mit dem ich die ganze Userform durchsuchen möchte nach dem Wert der in der einen Textbox steht.
Ich habe da auch schon einen Code gefunden jedoch funktioniert das ganze nicht in kombination mit der Multipage.
Private Sub CommandButton2_Click()
Dim objtxt As Object
For Each objtxt In UserForm1.Controls
If TypeName(objtxt) = "TextBox" Then
If objtxt.Value = TextBox742.Text Then
objtxt.SetFocus
Exit Sub
End If
End If
Next
End Sub

Wie muss ich den Code anpasse damit dieser auch auf einer Multipage funktioniert?
Danke für eure Hilfe.
Gruss Philip

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Probiere es mal so...
23.07.2018 12:05:35
Case
Hallo Philip, :-)
... der Spur nach: ;-)
Option Explicit
Private Sub CommandButton2_Click()
Dim lngPages As Long
Dim objBox As Object
For lngPages = 0 To MultiPage1.Pages.Count - 1
For Each objBox In MultiPage1.Pages(lngPages).Controls
If TypeOf objBox Is MSForms.TextBox Then
If objBox.Value = TextBox742.Text Then
MultiPage1.Value = lngPages
objBox.SetFocus
Exit Sub
End If
End If
Next objBox
Next lngPages
MsgBox "Keine Fundstelle!"
End Sub
Servus
Case

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige