2. Change Event startet nicht
14.01.2020 14:11:28
sascha
ich hab hier mal meinen Code geschildert, unten steht die eigentliche Frage. Hoffe Ihr könnt mir helfen :)
Es gibt eine UserForm:
Hat 2 Textboxen welche die variablen test1 & test2 befüllen und einen 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