Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Auf Doppelte prüfen, bevor Tabelleneintrag

Gruppe

TextBox

Problem

Vor dem Eintrag eines UserForm-TextBox-Wertes in eine Tabelle soll geprüft werden, ob der Wert bereits vorhanden ist.

Lösung
Geben Sie den Ereigniscode in die nachfolgend genannten Module ein.

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