Hello,
ich hab einfach mal schnell alles hier reingepackt. Hat sich etwas geändert:
UserForm:
Hat 2 Textboxen die die variablen test1 & test2 befüllen und ein Commandbutton.
Textbox 1 hat das Change Event Set Fokus bei einer bestimmten Eingabe.
Textbox 2 hat das Change Event, das Fenster zu schließen und den Sub aufzurufen.
Ein Commandbutton zum Abbrechen.
option Explicit
Private Sub CommandButton1_Click()
Unload UserForm7
End Sub
Private Sub TextBox1_Change()
test1 = TextBox1.Value
If test1 Like "0##" Then
TextBox2.SetFocus
End If
End Sub
Private Sub TextBox2_Change()
test2 = TextBox2.Value
If test2 Like "0##" Then
Unload UserForm7
Call SuchenFinden
End If
End Sub
Das Sub enthält folgendes:
Aktiviert eine anderes Workbook und Sheet.
Sucht den Wert von test1 in der Zeile D:D und speichert den Wert in rng.
Wählt die Zelle rng an, geht 6 Spalten nach rechts und trägt dort den wert aus test2 ein.
Anschließend soll wieder die UserForm angezeigt werden.
=> Das funktioniert auch alles, allerdings nur einmal. Beim wiederholten aufrufen der Userform erfolgt kein Change Event.
Option Explicit
Global test1 As String
Global test2 As String
Sub SuchenFinden()
Dim rng As Range
Workbooks("ZielDatei.xlsx").Activate
Worksheets("Beispiel").Activate
Set rng = Range("D:D").Find(test1)
If rng Is Nothing Then MsgBox ("Nicht vorhanden in der Spalte D:D")
rng.Activate
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = test2
UserForm7.Show
End Sub
|