VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert in Tabelle suchen und in UserForm ausgeben

Gruppe

Dialog

Bereich

Label

Thema

Wert in Tabelle suchen und in UserForm ausgeben

Problem

Wie kann ich einen in einer UserForm eingegebenen Suchbegriff in einer Tabelle suchen und dann in einem Label in der UserForm ausgeben lassen?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




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