HERBERS Excel-Forum - die Dialoge

Thema: Prüfung, ob Wert vorhanden ist

Home
Abbildung - Prüfung, ob Wert vorhanden ist
Prüfung, ob Wert vorhanden ist
  • Prozedur: cmdOK_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Prüfung, ob Wert vorhanden ist
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Prüfung, ob TextBox-Wert in Spalte A vorhanden ist
    • Wenn vorhanden...
    • Meldung, dass bereits vorhanden
    • Sonst...
    • Erste freie Zelle in Spalte A ermitteln
    • Wert in Zelle eintragen
  • Code:

    
    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