Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmSuchen

Private Sub cmdEintragen_Click()
   Dim rng As Range
   Set rng = Columns(1).Find( _
      what:=txtSearch.Text, _
      lookat:=xlWhole, _
      LookIn:=xlValues)
   If rng Is Nothing Then
      lblfound.Caption = "Nicht gefunden!"
   Else
      lblfound.Caption = rng.Offset(1, 0)
   End If
End Sub

Private Sub cmdContinue_Click()
    Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und Label