[Excel] Hyperlink naar macro?

[Verwijderd]

Hey mensen..

is het mogelijk om een macro te starten via een hyperlink in excel(2000)

Er moet namelijk en tabel gemaakt kunnen worden door op de naam van het persoon te klikken maar aangezien de range aan gepast moet worden kan ik niet zeggen selecteer de persoon en regel en klik dan op ctrl g voor de macro .. want dan staat de range helemaal fout .. en om 20 macro's met 20 afkortingen aan iedereen door te geven is ook weer zo lastig.. dus een simpele klik op de naam zou fijn zijn ..

jammer genoeg niets in de search

mijn search

[Verwijderd]

Ok heb nu dus ook vanalles geprobeert weer..

Nu zit het zo met de regel waar ik een tabel van moet hebben hij ziet zo uit na - is nieuwe cell:

1-naam-achternaam-uitslag-uitslag-uitslag ... enz ...

Die 1 maakt men heele tabel in de war .. want als ik vanaf naam selecteer tot het einde van de uitslagen waar overigens ook leege velden bij staan neemt hij die 1 ook in de tabel op als een waarde en moet ik het bereik weer zelf aanpassen ..

Dat moet niet ..

[Sherlock]

En als je nu een knop maakt met de macro, en voordat de macro uitgevoerd wordt laat je mensen kiezen uit een lijst met mensen?

[Verwijderd]

Nu werk ik nog niet zolang met Macro's en ga ik nu kijken of ik die knop en lijst met mensen kan vinden want dat zou perfect zijn

Wist niet dat die optie er was .. bedankt


edit -- euh jah hoe maak je die knop?

[ Voor 13% gewijzigd door Verwijderd op 12-02-2004 11:23 ]

[Sherlock]

Werkbalk formulieren -> daar staat een knop, selectievakje, groepsvak e.d. Dan moet je de opdrachtknop hebben.

Post je macro eens als je wil, want er zal wel wat aangepast moeten worden natuurlijk.

[Verwijderd]

ok .. maak macro even opnieuw

Ja maar uit vb gekopieert weet niet anders

[ Voor 46% gewijzigd door Verwijderd op 12-02-2004 11:30 ]

[Verwijderd]

Sub Grafiek1()
'
' Grafiek1 Macro
' De macro is opgenomen op 12-02-2004 door St. Paulus.
'
' Sneltoets: CTRL+SHIFT+G
'
Range("B7:AE7").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Klassikaal overzicht").Range( _
"B7:AE7"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).Values = "='Klassikaal overzicht'!R7C4:R7C31"
ActiveChart.SeriesCollection(1).Name = "='Klassikaal overzicht'!R7C2:R7C3"
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Klassikaal overzicht"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Bemelmans Sharon"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub