AW: Suchen
14.11.2007 13:44:00
Hajo_Zi
Hallo Kurt,
ich benutze dies als Grundlage.
Sub Find_mehrmals()
' erstellt von Hajo.Ziplies@web.de 14.08.03
Dim Found As Range
Dim FirstAddress As String
Dim Search As String
Dim LoLetzte As Long
Dim LoI As Long
Dim ByMldg As Byte
Search = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
' von Peter Haserodt
Set Found = .Range("A1:A" & LoLetzte).Find(Search, .Range("A" & LoLetzte), , _
xlWhole, , xlNext)
If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen
If MsgBox("Gefunden in Zelle " & Found.Address(0, 0) & " ist dies richt richtige _
Zelle !!!" _
, vbYesNo + vbQuestion, "Abfrage") = 6 Then
Exit Sub
Else
FirstAddress = Found.Address
Do
Set Found = .Range("A1:A" & LoLetzte).FindNext(Found)
If Found.Address = FirstAddress Then Exit Sub
If MsgBox("Gefunden in Zelle " & Found.Address(0, 0) & " ist dies richt _
richtige Zelle !!!" _
, vbYesNo + vbQuestion, "Abfrage") = 6 Then
Exit Sub
End If
If Found.Row = LoLetzte Then Exit Sub
LoI = LoI + 1
Loop
End If
End With
End Sub