Excel: Wurde mit 'Find' gesuchter Wert gefunden?

Computer: Software & Programmierung Office Software
1

Hallo,
Wie kann ich in Excel abfragen, ob ein, mit find (z.B. Selection.find)
gesuchter Wert erfolgreich gefunden wurde.

Kann mir gehofen werden?
Gruß
Armin G

2

Hallo Armin,

in der Hilfe steht: Sucht bestimmte Informationen in einem Bereich und gibt ein Range-Objekt zurück, das die erste Zelle mit diesem Inhalt darstellt. Gibt Nothing zurück, wenn keine Übereinstimmung gefunden wird. Die Methode bleibt ohne Wirkung auf die aktuelle Markierung oder die aktive Zelle.

Da ist auch ein Beispiel dabei:

With Worksheets(1).Range("a1:a500")
 Set c = .Find(2, lookin:=xlValues)
 If Not c Is Nothing Then
 firstAddress = c.Address
 Do
 c.Value = 5
 Set c = .FindNext(c)
 Loop While Not c Is Nothing And c.Address firstAddress
 End If
End With

Damit müsstest Du eigentlich klarkommen…

Gruß
(Woly)

3

Hi Woly, Ich bekomms selbst mit dem Beispiel nicht hin.
Habe eine neue xls angelegt, eine kleine Tabelle gefüllt
und eine Prozedur mit dem BeispielCode erstellt.

Ich Bekomme die Fehlermeldung 91:
Objectvariable oder With-Blockvariable nicht festgelegt.

Daraufhin habe ich die beiden Var. C und firstaddress als
dim c as range
dim firstaddress as range deklariert.

…klappt immer noch nicht.

4

Hi!

Schickst Du mir bitte mal die Beispieltabelle per eMail?

Gruß
(Woly)