VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Text aus UserForm-TextBox in Tabelle suchen

Gruppe

Dialog

Bereich

TextBox

Thema

Text aus UserForm-TextBox in Tabelle suchen

Problem

Wie kann ich Werte aus einer UserForm-TextBox in einem Tabellenblatt suchen und die Fundzeile in UserForm-Labels ausgeben lassen?

Lösung

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




ClassModule: frmSuchen

Private Sub cmdSuchen_Click()
   Dim rng As Range
   Dim dValue As Double
   Dim iCounter As Integer
   If Not IsNumeric(txtWert.Value) Then
      MsgBox "Nur Zahlen erlaubt!"
      Exit Sub
   End If
   dValue = CDbl(txtWert.Value)
   Set rng = Columns("A").Find(dValue, _
      lookat:=xlWhole, LookIn:=xlValues)
   If rng Is Nothing Then
      MsgBox "Suchwert wurde nicht gefunden!"
      For iCounter = 6 To 9
         Controls("Label" & iCounter).Caption = ""
      Next iCounter
   Else
      For iCounter = 0 To 3
         Controls("Label" & iCounter + 6).Caption = _
            rng.Offset(0, iCounter)
      Next iCounter
   End If
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub

    


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