Hallo zusammen,
habe hier eine Excel Liste mit zwei Spalten. Die Einträge der ersten Spalte sollen mit neuen verglichen werden. Dafür habe ich über einen ActivX-Button, eine Userform mit zwei Textboxen und einen Button gebaut.
Wenn ich in der TextBox1 einen Wert eingebe und dieser bereits vorhanden ist, soll er in der Tabelle eingefärbt werden (das funktioniert) und eine Msgbox erscheinen (das funktioniert nicht). Falls der Wert noch nicht in der ersten Spalte ist, soll er als letzter Wert in der Spalte eingetragen werden mit dem Wert aus TextBox2 in die zweite Spalte. Das funktioniert soweit auch, allerdings trägt auch den Wert ein, wenn er bereits in der Spalte vorkommt.
Kann mir da jemand weiter helfen?
Grüße Robin
Private Sub suchBoxBttn_Click()
Dim zeLL
Dim strSN As String
Dim strN As String
Dim rngXX As Range
Dim intEnd
Dim blnFound As Boolean
strSN = CStr(Me.TextBox1)
strN = CStr(Me.TextBox2)
' !!! Eingegrenzte Suche für eine schnellere Laufzeit !!!
Set rngXX = Tabelle1.Range("A2:A100")
'Sucht nach Eintrag
For Each zeLL In rngXX.Cells
If CStr(zeLL.Value) = strSN Then
zeLL.Interior.ColorIndex = 6
blnFound = True
Else
zeLL.Interior.ColorIndex = xlColorIndexNone
blnFound = False
End If
Next zeLL
If blnFound = True Then
MsgBox "Serienummer bereits vorhanden"
Else
intEnd = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intEnd, 1).Value = strSN
Cells(intEnd, 2).Value = strN
End If
Worksheets("Tabelle1").Activate
'Formular schließen
Unload Me
SuchenBox.Hide
End Sub
|