Ich versuche, eine nächste und vorherige Taste, um auf Textfelder zu zeigen, wenn ich mehr als eine von den gleichen Wert haben mit diesem Code, den ich nur den letzten Wert nurGet nächsten oder vorherigen Wert
Set sh = ThisWorkbook.Sheets("Outage")
With sh
For i = 1 To 50
If (InStr(1, Cells(i, 6), UserForm1.TextBox4.Text, vbTextCompare) > 0) Then
outage.TextBox1.Text = .Cells(i, 1)
outage.TextBox2.Text = .Cells(i, 3)
outage.TextBox9.Text = .Cells(i, 6)
outage.TextBox3.Text = .Cells(i, 9)
outage.TextBox4.Text = .Cells(i, 10)
outage.TextBox5.Text = .Cells(i, 11)
outage.TextBox6.Text = .Cells(i, 14)
outage.TextBox7.Text = .Cells(i, 15)
outage.TextBox8.Text = .Cells(i, 16)
End If
Next
End With
bekommen
, was ich tun muß, ist den ersten Wert anzuzeigen und wenn drücken, um zum nächsten Wert geht als nächstes gleiche in Benutzerformular Textfeld eingegeben 4
Es ist nicht klar, was Sie bedeuten. Bitte erläutern Sie, was Sie meinen und fügen Sie vielleicht einen Screenshot des Benutzerformulars und/oder des Arbeitsblatts bei, damit Sie die Hilfe erhalten, die Sie benötigen –