Als ik in Excel een macro opneem, wil ik een getal (willekeurig) kunnen invoeren. Hoe kan ik dat voor elkaar krijgen, zodat de macro stopt op het moment van input?

Anoniem

Ik heb via de button "Macro opnemen" een macro uitgevoerd. Nu wil ik, dat de macro, nadat hij wacht totdat er een cijfer(via Enter) ingevoerd is. Daarna weer teruggaat naar het Hoofdmenu.

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

0 opmerkingen

Antwoord geaccepteerd door vraagauteur

Anoniem

@Joop,

Hieronder een envoudig voorbeeld van een macro waarmee je misschie verder kunt.

Als in de inputbox wat is ingevoerd, wordt gecontroleerd of die invoer wel een getal was en als het dat was, of het groter dan 0 en kleiner dan 73 was. Als daaraan niet voldaan is, gaat de macro terug naar het begin, net zo lang totdat de invoer wel in orde is. En is de invoer in orde, dan wordt cel A1 in het blad 'Menu' geselecteerd. Omdat je met 2 verschillende bladen werkt, is de naam van het blad telkens vermeld, anders bestaat het gevaar dat het getal dat wordt ingevoerd niet in het juiste blad terecht komt. Aangenomen is dat je naast het blad 'Menu' ook het blad 'Blad1'gebruikt.

Sub macro1() 

Dim getal As Integer 

Begin: 

getal = InputBox("Voer een getal in tussen 0 en 73") 

If WorksheetFunction.IsNumber(getal) And getal > 0 And getal < 73 Then 

Sheets("Blad1").Range("E2").Value = getal 

Else 

GoTo Begin 

End If 

Application.Goto Sheets("Menu").Range("A1") 

End Sub

0 opmerkingen

15 extra antwoorden

Anoniem

2024-11-19T17:44:30+00:00

Dat de macro nadat ik het geactiveerd heb tijdelijk stopt om een getal tussen de 0 en 73 in te vullen en dan op Enter drukken waardoor de macro naar het menu gaat
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-11-19T16:54:06+00:00

Joop,

Welk resutaat had je precies verwacht?

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-11-19T13:11:17+00:00
Bedankt voor reactie, echter ik krijg niet het resultaat. Volgende heb ik in de macro staan:

Sub Test()

'

' Test Macro

'

'
```
Sheets("Spelerslijst").Select 

Range("E2") = InputBox("Voer een waarde tussen 0 en 73 in", "Beperkt") 

Sheets("Menu").Select 
```
End Sub
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-11-18T17:41:08+00:00
Joop,

Daarvoor kun je gebruikmaken van InputBox, bv zo:

Sub Macro1()
```
Range("A7") = InputBox("Voer een waarde tussen 0 en 20 in", "Beperkt") 
```
End Sub

waarmee een waarde in A7 (van het actieve blad) wordt ingevoerd.

Jan
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen