|
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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | 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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 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
|
|