Wert suchen
Frank
Mittels folgendem Code möchte ich Werte in einer Tabelle suchen:
Private Sub cmdSuchen_Click()
Dim zelle As Range
Dim sBegriff As String
sBegriff = TextBox1.Value
If sBegriff = "" Then Exit Sub
Set zelle = Worksheets("Index").Columns(3) _
.Find(sBegriff, LookAt:=xlWhole)
If zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
Else
MsgBox "Suchbegriff befindet sich in Zelle " & _
zelle.Address
End If
zelle.Select
Rows(ActiveCell.Row).Select
Unload Me
End Sub
=WENN(ISTFEHLER(SVERWEIS($B7;CD_Archiv!$AE$3:$BA$65002;2;FALSCH));"";WENN(SVERWEIS($B7; CD_Archiv!$AE$3:$BA$65002;2;FALSCH)=0;"";SVERWEIS($B7;CD_Archiv!$AE$3:$BA$65002;2;FALSCH)))
in die Zellen der Spalte C.
Nun sagt mir mein Code immer "Suchbegriff wurde nicht gefunden. Was muss ich verändern?
Danke im Vorraus!!!
Gruß Frank H.!!!