[VBA & Excel] selecties maken uit tabel

[Verwijderd]

Beste tweaker,

Ik zit met het volgende probleem. Ik heb een grote tabel waaruit ik (in excel) een aparte selectie wil kunnen maken door de datum in te voeren en de bijbehorende gegevens in dit tabblad te krijgen. Hiervoor heb ik de volgende functie geschreven:

---

Public Function analyser(datum As Date)
Dim tabel(100)
analyser = 0
Application.Volatile True
For i = 1 To 3

tabel(i) = Range(Chr(Asc("Blad1!A") + i - 1) & "1")
If tabel(i) = datum Then
analyser = Range(Chr(Asc("Blad1!A") + i - 1) & "2")

End If

Next i
End Function

---

Als ik dit op deze manier wil doen moet ik echter voor iedere cel een aparte functie schrijven, omdat ik niet altijd de info uit de 2e rij wil. Ik wil die laatste "2" daarom laten verwijzen naar de rij van de cel waarin de formule staat. Dit lukt me echter niet.

Wie kan me helpen??

[BtM909]

Zoek dan even of je properties van je activeCell kan opvragen

Via activeCell kan je vast wel iets met rows doen

[Verwijderd]

Heb ik geprobeert, maar via via 'activeCell' pakt VBA niet de cel waarin ik de formule heb gezet, maar de cel waar mijn cursor instaat.

[onkl]

activecell.row geeft de rij van de actieve cel.
met activecell.offset(0,-2) (of was 't nou (-2,0) verwijs je altijd naar twee cellen links van de cel waarin je bezig bent.

edit:
oeps, lezen is ook een kunst

Je kan de cel waarin de formule staat meegeven als argument aan de functie.
dus:
Public Function analyser(datum As Date, formulecel as range)

Dan kan je "formulecel" gebruiken om je verwijzingen aan vast te knopen.
Als je de formule intikt in Excel moet je nog even een verwijzing naar de cel zelf als argument meegeven.

(en nog mooier:)

Probeer deze functie eens in je module te plakken.

code:

Public Function whoami()
whoami = Application.Caller.Address
End Function

En dan ergens in je blad =whoami() typen. Wat een feest. (ik kende 'm zelf ook niet eigenlijk)

[ Voor 66% gewijzigd door onkl op 17-08-2005 13:42 ]

[Verwijderd]

Dank je,

Mijn formule werkt nog niet helemaal correct, maar ik kan nu in ieder geval de juiste rij selecteren.