Gruppe
Dialog
Problem
Vor dem Eintrag eines UserForm-TextBox-Wertes in eine Tabelle soll geprüft werden, ob der Wert bereits vorhanden ist.
ClassModule: frmValues
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim var As Variant
Dim intRow As Integer
var = Application.Match(CDbl(txtValue.Text), Columns(1), 0)
If Not IsError(var) Then
MsgBox "Wert ist bereits vorhanden!"
Else
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1) = txtValue.Text
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmValues.Show
End Sub