Option Explicit
Public Sub Find_Methode()
'* H. Ziplies *
'* 31.05.16 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de
Dim WkSh_1 As Worksheet
Dim WkSh_2 As Worksheet
Dim lZeile As Long
Dim rZelle As Range
Dim sFundst As String
Dim LoI As Long
Dim Loletzte As Long
' erste Tabelle ist aktiv
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte
With Worksheets("Tabelle2").Columns(1)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Cells(LoI, 1) "" Then
Set rZelle = .Find(Cells(LoI, 1), Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
Cells(LoI, 1).Interior.Color = 255
rZelle.Interior.Color = 255
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
End If
End If
End With
Application.EnableEvents = True
Application.CutCopyMode = False 'Zwischenspeicher löschen
Application.ScreenUpdating = True
Set rZelle = Nothing
Next LoI
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