Check en celle for indhold

Sub test()
On Error GoTo nomatch
Range("A1:G1000").Find("XX", LookIn:=xlValues).Select
If Selection.Offset(1, 0) <> "" Then
MsgBox ("Cellen indeholder ") & Selection.Offset(1, 0)
Else
MsgBox ("Cellen er tom")
End If
Exit Sub
nomatch:
MsgBox ("Fandt ingen celler med XX")
End Sub

I nogen tilfælde kan XX forekomme mere end én gang. og det er kun den sidste i kolonnne som jeg er interesseret i. Når XX er fundet, skal jeg have undersøgt om der står noget i de følgende linier - giver det mening?

jo det gir godt nok mening, samt en del mere kode :-)
vender tilbage

hvilket område skal der søges i ?

Der skal kun søges i kolonnne A, hvor række antalle er variabelt.

koden finder både XX Xx xx xX
sig til hvis det er et problem

Sub xFind()
søgestreng = "XX" ' angiv evt. ny søgeværdi her
rk = Cells(1000, 1).End(xlUp).Row
x = Application.CountIf(Sheets("Ark11").Range("A1:A" & rk), søgestreng)
If x = 0 Then GoTo nomatch
adr = "A1"
On Error GoTo nomatch
For t = 1 To x
y = Range(adr & ":A" & rk).Find(søgestreng, LookIn:=xlValues).Address
adr = y
Next
If Range(adr).Offset(1, 0) <> "" Then
MsgBox ("Cellen indeholder ") & Range(adr).Offset(1, 0)
Else
MsgBox ("Cellen er tom")
End If
Exit Sub
nomatch:
MsgBox ("Fandt ingen celler med ") & søgestreng
End Sub

------------------
Hvis du foretrækker en formel så indsæt denne og afslut med ctrl+shift+enter

=HVIS(INDIREKTE("A"&MAKS(HVIS(A1:A1000="XX";RÆKKE(A1:A1000)))+1)<>"";INDIREKTE("A"&MAKS(HVIS(A1:A1000="XX";RÆKKE(A1:A1000)))+1);"Cellen er tom")

Der ser rigtig godt ud, og finder præcis det som jeg søgte. Jeg mangler blot nu få en handling på, når den har fundet den ønskede linie.
I linen: If Range(adr).Offset(1, 0) <> "" Then, indeholder adr. adressen på linien med indholdet XX. Denne linie skal blot slettes. kan du også klare dette vil jeg blive superglad. :O)

indsæt denne lige efter NEXT (sletter sidste XX i kolonne)
Range(adr)=""

Range(adr)="" bevirker ikke at linien slettes. Som jeg har forstået det, så peger adr kun på adressen. Hvordan kan man gøre cellen aktiv? dvs. placere cursoren der? eller bedre endnu, når adressen er kendt, kan rækkenummeret så tages ud af adressen, således at rækken kan slettes?

denne sletter eventuelle værdier i rækken
Rows(Range(adr).Row).Clear
denne sletter rækken
Rows(Range(adr).Row).EntireRow.Delete

den bør måske placeres lige før Exit Sub

Det virker bare helt perfekt :O)). Tusinde tak for hjælpen og god weekend.