kann ich denn mit der Find-Methode auch nach einer Zelle suchen, die irgendeinen Inhalt hat, als keinen bestimmten Inhalt?
Wenn ja, wie sieht dann die Such-Bedingung aus?
Danke schon mal für die Antwort
Dim Zelle As Range
Set Zelle = Range("A1")
Dim adr As String
Do
Set Zelle = Cells.Find(what:="*", after:=Zelle)
If Zelle.Value 1 Then Exit Do
If adr = "" Then adr = Zelle.Address
Loop Until Zelle.Address = adr
Zelle.Select
Gruß DanielSub test()
Dim raFund As Range
With Worksheets("Tabelle1")
Set raFund = .Columns("A:A").Find(What:="*", LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not raFund Is Nothing Then
MsgBox raFund.Address
End If
End With
End Sub
Sucht im Blatt Tabelle1, Spalte A, nach irgendeinem Wert in einer Zelle, von unten nach oben und gibt die Fundstelle in einer Messagebox aus.