Wert in Spalte suchen, wenn er gefunden wird, fabre eines image ändern
09.12.2019 12:16:46
Torben
in meiner UserForm gibt es ein Feld Seriennummer. Wie der Name schon sagt, wird dort die Seriennummer eingetragen.
Nach der Eingabe soll nun die Seriennummer geprüft werden, ob diese schon in einer Liste vorhanden ist. Falls ja, soll sich ein Image rot färben.
Das ist mein Ansatz:
Private Sub SN_txb_Change()
Dim rSuche As Range, rFinde As Range, rResult As Range
Set rResult = SN_txb.Value
Set rFinde = Sheets("Data").Range("J:J")
Set rSuche = rFinde.Find(What:=rResult, lookAt:=xlWhole, LookIn:=xlValues)
If rSuche Is True Then
Image2.BackColor = RGB(255, 0, 0)
End If
End Sub
Anzeige