ist es möglich ein Suchfeld in eine Exelliste zu integrieren, welches die Tabelle nach dem jew. Suchbegriff durchsucht?
Für einen Tipp bin ich sehr dankba,
ciao
Thomas
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SuBe As Range
Dim s As String
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
s = Range("A1").Text
Set SuBe = Cells.Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing And SuBe.Address <> "$A$1" Then
MsgBox "Suchbegriff '" & s & "' in Zelle '" & _
SuBe.Address(False, False) & "' gefunden !", _
vbInformation, "Dezenter Hinweis für " & _
Application.UserName & ":"
Set SuBe = Nothing
Else
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SuBe As Range
Dim s As String
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
s = Range("A1").Text
Set SuBe = Cells.Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing And SuBe.Address <> "$A$1" Then
SuBe.Select
MsgBox "Suchbegriff '" & s & "' in Zelle '" & _
SuBe.Address(False, False) & "' gefunden !", _
vbInformation, "Dezenter Hinweis für " & _
Application.UserName & ":"
Set SuBe = Nothing
Else
MsgBox "Suchbegriff '" & s & "' nicht gefunden !", vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub
Private Sub CommandButton1_Click()
On Error GoTo Fehler
S = TextBox1.Text
Cells.Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub
Fehler:
MsgBox "Nicht gefunden"
End Sub