Ich habe hier auf der tollen Seite einen VBA Code gefunden der für mich interessant ist aber leider funzt er bei mir nicht Was mache ich falsch ?
ich möchte über eine Userform eingabe die dazugehörigen Werte in der Tabelle angezeigt kommen eventuell farbig hinterlegt die Suchspalte in der Tabelle ist immer die gleiche
nun mal der Code ich bekomme die Fehlermeldung endif ohne if Anweisung .
Wäre schön wenn mir jemand helfen könnte
Private Sub cmdSuchen_Click()
Dim rng As Range
Dim dValue As Double
Dim iCounter As Integer
If Not IsNumeric(txtWert.Value) Then // hier kommt immer die Fehlermeldung//
MsgBox "nur Zahlen erlaubt "
Exit Sub
End If
dValue = CDbl(txtWert.Value)
Set rng = Columns("A").Find(dValue, lookat:=lWhole, LookIn:=xlValues)
If rng Is Nothing Then
MsgBox " nichts gefunden "
For iCounter = 6 To 9
Controls("Label" & iCounter).Caption = ""
Next iCounter
Else
For iCounter = 0 To 3
Controls("Label" & iCounter).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