CTR F onder knop (macro)

Wouter

unread,

Aug 9, 2006, 8:26:26 AM8/9/06

to

Dag allemaal,

Ik wil een macro knop maken waarin de functie ctrl F (=zoeken) wordt
uitgevoerd.
Het zal vast niet heel erg moeilijk zijn maar de opneem functie neemt niks
op als ik ctrl F indruk of naar bewerken-zoeken ga.

Is er een goede plek op internet waar ik dit soort dingen terug kan vinden,
stukje VBA uitleg o.i.d. ?

groeten,
Wouter

PeterS

unread,

Aug 9, 2006, 11:54:12 AM8/9/06

to

Kun je hier mee verder, Wouter?

'--[code]

Sub SnelZoek()
Dim rng As Range
Dim PersoonID As String

PersoonID = [A1]
Set rng = Cells.Find(What:=PersoonID, SearchOrder:=xlByRows)

If rng Is Nothing Then
MsgBox "Helaas... niet gevonden."
Else
MsgBox rng.Address
End If

End Sub

'--[\code]

--
Peter

Wouter schreef:

moon

unread,

Aug 9, 2006, 12:00:22 PM8/9/06

to

"Wouter" <ne...@hammingh.nl> schreef in bericht
news:44d9d4cc$0$2015$ba62...@text.nova.planet.nl...

Die plek is hier.

Volgens mij los je dit het eenvoudigst op door:

Public Sub LaunchFind()
Application.SendKeys "%wz"
End Sub

% = Alt-toets
wz = beWerken, Zoeken
Daarbij is dus uitgegaan van een Nederlandse Excel-versie.

Wouter

unread,

Aug 10, 2006, 11:04:47 AM8/10/06

to

Als ik onderstaande macro uitvoer dan werkt het inderdaad.
Nu moet de macro nog onder de knop gaan werken.

Werkend :

Public Sub LaunchFind()
Application.SendKeys "%wz"
End Sub

Niet werkend :

Private Sub CommandButton1_Click()
Application.SendKeys "%wz"
End Sub

Kan iemand mij hiermee helpen?

groetjes,
Wouter

"moon" <hounga...@planet.nl> schreef in bericht
news:44da0698$0$2014$ba62...@text.nova.planet.nl...

moon

unread,

Aug 10, 2006, 11:35:09 AM8/10/06

to

Zodra je op CommandButton1 klikt, heeft deze knop de 'focus' en stuur je de
tekenreeks %wz naar de knop in plaats van naar het menu.

Als je eerst de focus van de knop afhaalt, bijvoorbeeld door ergens een cel
te activeren, lukt het wel...

Private Sub CommandButton1_Click()
ActiveSheet.Cells(1, 1).Activate
Application.SendKeys "%wz"
End Sub

"Wouter" <ne...@hammingh.nl> schreef in bericht

news:44db4b6d$0$2031$ba62...@text.nova.planet.nl...

Wouter

unread,

Aug 11, 2006, 4:01:09 AM8/11/06

to

Beste Moon,

Dit werkt perfect ! Bedankt hiervoor.

groetjes !

"moon" <hounga...@planet.nl> schreef in bericht

news:44db522e$0$2022$ba62...@text.nova.planet.nl...

Wouter

unread,

Aug 11, 2006, 4:46:50 AM8/11/06

to

Is er ergens een lijst waar ik meer toets combinaties in terug kan vinden?
Onderstaande heb ik doorgekregen van je.

% = Alt-toets
wz = beWerken, Zoeken

groetjes,
Wouter

"Wouter" <ne...@hammingh.nl> schreef in bericht

news:44dc39a5$0$2029$ba62...@text.nova.planet.nl...

moon

unread,

Aug 11, 2006, 9:04:01 AM8/11/06

to

Het onderstaande heb ik ongewijzigd overgenomen uit Excel Help na een search
op 'SendKeys'.
Ik hoop dat het hier een beetje lekker wrapt...

Toets Code
BACKSPACE {BACKSPACE} of {BS}
BREAK {BREAK}
CAPS-LOCK {CAPSLOCK}
CLEAR {CLEAR}
DELETE of DEL {DELETE} of {DEL}
PIJL-OMLAAG {DOWN}
END {END}
ENTER (numerieke toetsenblok) {ENTER}
ENTER ~ (tilde)
ESC {ESCAPE} of {ESC}
HELP {HELP}
HOME {HOME}
INS {INSERT}
PIJL-LINKS {LEFT}
NUM-LOCK {NUMLOCK}
PGDN {PGDN}
PGUP {PGUP}
RETURN {RETURN}
PIJL-RECHTS {RIGHT}
SCROLL-LOCK {SCROLLLOCK}
TAB {TAB}
PIJL-OMHOOG {UP}
F1 tot en met F15 {F1} tot en met {F15}

U kunt ook een toetsencombinatie met een of meer van de volgende toetsen
opgeven: SHIFT, CTRL en ALT. De toetsencombinaties worden aangegeven met de
volgende tekens.

Combinatie met Plaats dit teken voor de toets
SHIFT plusteken (+)
CTRL caret (^)
ALT procentteken (%)

"Wouter" <ne...@hammingh.nl> schreef in bericht

news:44dc445a$0$2028$ba62...@text.nova.planet.nl...