UserForm und Weitergabe an Makro
Burghard
ich bräuchte mal Hilfe. Ich habe (erstmals) eine UserForm (Name = Eingaben) erstellt.
Dort gibt es zwei Texteingabefelder "TextBox1" und "TextBox2". Außerdem gibt es noch die Befehlsschaltflächen "CmdOk" und "CmdAbbrechen".
Wenn sich die UserForm mit "Workbook_open" öffnet, möchte ich in diese Felder zwei Eingaben machen, die Eingabe in die TextBox1 möchte ich an ein Makro als "Suchbegriff1" und die Eingabe in die TextBox2 "als "Suchbegriff2" weitergeben.
Ich weiß nicht,
a) wie ich die Weitergabe der Eingaben in die Textbox an das Makro hinkriege und
b) welchen Code ich bei den Befehlsschaltflächen "CmdOk" und "CmdAbbrechen" eingeben muss.
c) Gehört das Makro in ein Modul oder zum Code bei der Userform?
Mein Makro:
Sub zeilen_loeschen()
On Error GoTo nix
Dim lZeile As Long
Dim Suchbegriff1 As String
Dim Suchbegriff2 As String
Suchbegriff1 = Eingaben.TextBox1.Value
Suchbegriff2 = Eingaben.TextBox2.Value
If Suchbegriff1 = "" Then
GoTo nix
End If
If Suchbegriff2 = "" Then
GoTo nix
End If
For lZeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Range(Suchbegriff1 & lZeile).Value = Suchbegriff2 Then
Rows(lZeile).Delete Shift:=xlUp
End If
Next lZeile
nix:
End Sub
Schönen Gruß
Burghard