Thema Datum  Von Nutzer Rating
Antwort
Rot Zentrale UserForm für Suchfunktion
01.02.2024 10:22:11 Jamie99
NotSolved
01.02.2024 20:42:59 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Jamie99
Datum:
01.02.2024 10:22:11
Views:
164
Rating: Antwort:
  Ja
Thema:
Zentrale UserForm für Suchfunktion

Guten Tag,

ich greife mit meinem Modul derzeit auf einzelne UserFormen zu, die alle den gleichen Aufbau haben. Es wäre schön wenn man eine zentrale UserForm hätte, leider habe ich keine Ahnung wie ich die Codes zusammenführe und dass dann nur die jeweilige TextBox bzw. CommandButtons angezeigt und ausgeführt werde.

Hier sind jeweils die Codes die ich für die einzelnen UserFormen benutzte:

UserForm 1:

Option Explicit

Public Suchbegriff As String

Private Sub TextBox2_Change()
    ' Wenn sich der Text in der TextBox ändert, aktualisiere den Suchbegriff
    Suchbegriff = TextBox2.Text
End Sub

Private Sub Suchen2_Initialize()
    ' Code für die Initialisierung der UserForm (falls erforderlich)
    TextBox2.Text = Suchbegriff ' Setze den vorherigen Suchbegriff in die TextBox
End Sub

Private Sub CommandButton3_Click()
    ' Button zum Starten der Suche
    Suchbegriff = TextBox2.Text ' Speichere den aktuellen Suchbegriff
    SucheUndMarkiereUIDPurification Suchbegriff
    Unload Me ' Schließe die UserForm
End Sub

Private Sub CommandButton4_Click()
    ' Button zum Löschen der Suchbegriffe und Schließen der UserForm
    SucheUndMarkiereUIDPurification "" ' Leerer Suchbegriff für die Anzeige aller Daten
    Suchbegriff = "" ' Leere den Suchbegriff
    Unload Me ' Schließe die UserForm
End Sub

 

UserForm 2:

 

Option Explicit

Public Suchbegriff As String

Private Sub TextBox3_Change()
    ' Wenn sich der Text in der TextBox ändert, aktualisiere den Suchbegriff
    Suchbegriff = TextBox3.Text
End Sub

Private Sub Suchen3_Initialize()
    ' Code für die Initialisierung der UserForm (falls erforderlich)
    TextBox3.Text = Suchbegriff ' Setze den vorherigen Suchbegriff in die TextBox
End Sub

Private Sub CommandButton5_Click()
    ' Button zum Starten der Suche
    Suchbegriff = TextBox3.Text ' Speichere den aktuellen Suchbegriff
    SucheUndMarkiereUIDAdd1 Suchbegriff
    Unload Me ' Schließe die UserForm
End Sub

Private Sub CommandButton6_Click()
    ' Button zum Löschen der Suchbegriffe und Schließen der UserForm
    SucheUndMarkiereUIDAdd1 "" ' Leerer Suchbegriff für die Anzeige aller Daten
    Suchbegriff = "" ' Leere den Suchbegriff
    Unload Me ' Schließe die UserForm
End Sub

Viele Grüße und danke im Voraus

 

Jamie


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zentrale UserForm für Suchfunktion
01.02.2024 10:22:11 Jamie99
NotSolved
01.02.2024 20:42:59 ralf_b
NotSolved