Gruppe
Dialog
Problem
Wie kann ich Werte aus einer UserForm-TextBox in einem Tabellenblatt suchen und die Fundzeile in UserForm-Labels ausgeben lassen?
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