|
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
|