Also wenn ich dieses Programm mit diesem Programm Suche aber er den begriff nicht findet dann fragt das Programm immer ob er den Debugger starten soll!! Wie kann man das unterbinden???
mit rngFind = "" then exit sub
geht es nicht!
mfg
sebastian
Private Sub OK2_Click()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
Suchbegriff = Array(Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9)
For t = 0 To UBound(Suchbegriff)
sSearch = Suchbegriff(t)
Set rngFind = Cells.Find(Suchbegriff(t), LookAt:=xlPart)
If rngFind = "" Then Exit Sub
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngRows = Application.Union(rngRows, Rows(rngFind.Row - 1))
Set rngRows = Application.Union(rngRows, Rows(rngFind.Row + 1))
Set rngFind = Cells.FindNext(After:=rngFind)
Loop Until rngFind.Address = sFind
End If
Next
rngRows.Select
End Sub