möchte über ein Makro gleichen Eintrag aus Zelle A1 in Tabelle1 in Tabelle2 Spalte A1:A100 finden und markieren !
Gruß
Bommi
Sub such_mich()
Dim C As Range, rngSearch As Range
Set rngSearch = [tabelle2!a:a]
Set C = [tabelle1!a1]
If Not rngSearch.Find(C, lookat:=xlWhole) Is Nothing Then
MsgBox rngSearch.Find(C, lookat:=xlWhole).Address(0, 0), , "Treffer in:"
Else
MsgBox C & " nicht gefunden", , "Fehlanzeige"
End If
End Sub
Sub Wert_suchen()
Sheets("Tabelle2").Activate
Range("A1:A100").Find( _
What:=Sheets("Tabelle1").Range("A1"), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen