Office: (Office 2016) Find(What:=...

Hallo Forum,

ich versuche gerade mich mit einigen selbst erstellten Aufgaben in VBA einzuarbeiten.
Leider bin ich bei fogenderAufgabenstellung gescheitert und weiß nicht so richtig weiter. Ich denke, dass es ein Problem in meiner Logik (Denkweise) ist.

Aus einer Matrix soll mittels VBA der nte Wert dynamisch ermittelt werden. Mithilfe einer Eingabezelle für den nten Wert und mit Worksheet.Function Large bzw. Small gelingt mir das auch.
Jetzt möchte ich mittels Find(What;= die Zelladresse des gefundenen Wertes ermitteln und in einerMsgBox ausgeben.
Hier jedoch versagen meine Kenntnisse. Rumexperimentieren hat mich auch nicht weitergebracht.
Kann mir jemand weiterhelfen? meine Übungsdatei ist angehängt.
Vielen Dank

der Mampfred

 

Hi,

ganz einfach nach diesem Prinzip:

Code:

Set rngFinden = Range("C6:G11").Find(dblZielInhalt, lookat:=xlWhole, LookIn:=xlValues)
If Not rngFinden Is Nothing Then MsgBox rngFinden.Address

---

 

Hi Beverly,

vielen Dank für deine Hilfe.
Ich muss irgendetwas übersehen haben, denn mein erster Code sah so aus und gab mir immer eine Fehlermeldung aus.

Code:

et rngFinden = Range("C6:G11").Find(what:=dblZielInhalt, lookat:=xlWhole, LookIn:=xlValues)

Deshalb meine Frage: Muss ich "What:=" nur bei bestimmten Suchen angeben oder ???

Meine Aufgabe funktioniert jedenfalls mit deiner Lösung einwandfrei. Danke und

Bis bald

der Mampfred

 

Hi,

nein, muss man nicht, da der Suchbegriff immer an 1. Position stehen muss, wobei alle anderen Parameter otional sind. Wenn man nur einige davon verwenden möchte, setzt man den "Namen" des jeweiligen Parameters voran (wie z.B. lookat:=.... ), damit Excel weiß, welcher Parameter gemeint ist.

Schau dazu mal hier: Range.Find-Methode (Excel) bei der Syntax.

---

 

Hi Beverly,

danke für deinen Hinweis. Wieder was dazugelernt.

der Mampfred