Geeft foutmelding Application in code

[CorVerm]

Beste mensen,

Onderstaande code geeft een foutmelding:

Sub InsertRow()
[COLOR="#FF0000"]Application[/COLOR].InputBox("Selecteer een cel", , , , , , , 8).EntireRow.Insert
On Error Resume Next
Application.InputBox("Selecteer een cel", , , , , , , 8).EntireRow.ClearContents
End Sub

Ik wil de macro gebruiken in een geopend werkblad.

 

[edmoor]

Lastig. Hij doet het hier prima zonder enige wijziging. Probeer anders deze eens:

Sub InsertRow()
    Dim sCel As Variant
    
    sCel = Application.InputBox(Prompt:="Selecteer een cel", Type:=2)
    On Error Resume Next
    Range(sCel).EntireRow.Insert
    Range(sCel).EntireRow.ClearContents
End Sub

 

[CorVerm]

Deze doet het Ed, maar dan moet ik de code wel in Personal.XLSB zetten. Dat zou met de code die ik had misschien ook wel het geval zijn. Dus de code in het worksheet werkt niet.

Bovendien zou ik graag op willen kunnen geven hoeveel rijen er ingevoegd moeten worden middels de InputBox. Heb je daar een oplossing voor?

 

[edmoor]

Vast wel. Met welke toets activeer je die macro?

 

[CorVerm]

Ik heb de code in een nieuwe worksheet gezet en daar werken beide codes, raar maar waar, probleemloos.
Ik activeer de macro altijd via de tab Ontwikkelaars > Macro's.

 

[edmoor]

Kijk eens naar het voorbeeld in dit document:
Bekijk bijlage CorVM.xlsm

Is dat wat voor je?
Als je wil kan ik er een invoegtoepassing van maken.
Dan heb je dat in ieder document, bestaand en nieuw, beschikbaar.

 

[CorVerm]

Dit is het helemaal Ed :thumb:.
Hartelijk dank.

 

[sylvester-ponte]

als je meer rijen wilt invoegen kun je ook je eigen macro gebruiken. door een gebied meet meer rijen te selecteren

 

[edmoor]

Graag gedaan Cor

 

[CorVerm]

@Sylvester,
Dank voor de suggestie.

@Ed,
Ik zie nu pas dat je er een invoegtoepassing van wilt maken.
Ik zou zeggen: heel graag.

 

[edmoor]

Bij deze:
Bekijk bijlage CorVM.zip

Je weet hoe je er mee om moet gaan?

 

[CorVerm]

Nee, eigenlijk niet Ed,
.xlam is nieuw voor mij .

 

[edmoor]

Ok, het is simpel en eenmalig.
Plaats dat .xlam bestand in een map waar je het handig vind.
- Open Excel
- Klik op Bestand
- Klik op Opties
- Klik aan de linkerkant op Invoegtoepassingen
- Klik onderin op Start
- Klik aan de rechterkant op Bladeren
- Ga naar de map waar de .xlam staat en dubbelklik dan op dat bestand
- Klik op Ok

Sluit Excel en open een willekeurig bestaand of nieuw bestand.
Daar zal de toets dan werken, in ieder nieuw of bestaand document dus.

Het handige nu is dat deze invoegtoepassing aangepast en/of uitgebreid kan worden en je de aanpassing of uitbreiding direct in ieder nieuw of bestaand document tot je beschikking hebt.
Tevens hoef je de documenten dan niet als .xlsm op te slaan.

 

[CorVerm]

Waar een vraag al toe kan leiden .
Het werkt en ik heb er weer van geleerd.

Nogmaals dank Ed.

 

[edmoor]

Met plezier gedaan