Sub Test_Sökfunktion()
'
Dim Txt_nr As Integer
Dim Finn_Txt As String
Range("A6:A300").Select
Application.ScreenUpdating = False
For Txt_nr = 1 To 4
If Txt_nr = 1 Then
Finn_Txt = "fisk"
Else
If Txt_nr = 2 Then
Finn_Txt = "fågel"
Else
If Txt_nr = 3 Then
Finn_Txt = "nöt"
Else
Finn_Txt = "vilt"
End If
End If
End If
Selection.Find(What:=Finn_Txt, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Do
If ActiveCell.Offset(0, 8) = "" Then
ActiveCell.Offset(0, 8) = Finn_Txt
Selection.FindNext(After:=ActiveCell).Activate
End If
Loop Until ActiveCell.Offset(0, 8) <> ""
Next Txt_nr
Range("A5").Select
Application.ScreenUpdating = True
End Sub
Ovanstående lilla Makro är mitt klumpiga försök till en sökfunktion som skall hitta de sökord (Variabeln Finn_Txt) som styrs av For-räknarens värde bland ett Range-område av textsträngar. Så länge sökfunktionen Selection.Find hittar de ord som angetts som sökord fungerar denna lösning. Problemet är det att när ingen av raderna innehåller något av sökorden bryts Makrot och ett felmeddelande visas. "Körfel nr '91'.: Objektvariabel eller With-blockvariabel har inte angetts". Hur skall jag göra för att få Makrot att ignorera detta och i stället fortsätta med nästa Txt_nr, eller avsluta Suben?
Tack på förhand // Jörgen.