Macro invullen formulier werkt niet

[BME]

Goedendag

Ik heb een Excel-tabel waar ik gegevens in wil vullen. Als ik dat handmatig doe met de functie "Formulier" van Excel gaat dat allemaal goed.
Als ik een macro opneem en hetzelfde doe gaat dat ook goed.
Als ik vervolgens de macro uitvoer krijg ik een foutmelding: Er kan niet door Microsoft Excel worden bepaald welke rij in de lijst of selectie de kolomlabels bevat. Hierdoor kan de opdracht niet worden uitgevoerd.

In VBA staat:
Sub INVULLEN()
'
' INVULLEN Macro
'

'
Range("Tabel1[[#Headers],[datum]]").Select
ActiveSheet.ShowDataForm
End Sub

Iemand een idee?
Dank
Bert

 

[emields]

Een voorbeeld bestandje werkt beter dan een code die hier zomaar neergezet is.

 

[BME]

Dank. Bij dezen

 

[edmoor]

Doe het zo:

 

[BME]

ik zie alleen andere layout en dat past niet in wat ik er mee doe.

 

[edmoor]

Maar zo werkt het wel.
Verzin dus een andere layout.
Zie de complete foutmelding die je krijgt.

 

[HSV]

Probeer deze eens.

Sub invullengvd()
 CommandBars.FindControl(, 860).Execute
End Sub

 

[edmoor]

Werkt prima als je er dit van maakt

Sub invullengvd()
 Range("A5").Select
 CommandBars.FindControl(, 860).Execute
End Sub

 

[HSV]

Haha, dan was die cel al toevallig geselecteerd bij mij.

Hierbij maakt het niet uit waar de tabel zich bevindt,; Zie maar wat jou het beste past.

Sub invullengvd()
 Application.Goto ActiveSheet.ListObjects(1).Range(1, 1)
 CommandBars.FindControl(, 860).Execute
end sub

Of:

Sub invullengvd()
 ActiveSheet.ListObjects(1).Range(1, 1).Select
 CommandBars.FindControl(, 860).Execute
end sub

 

[edmoor]

Da's nog wat flexibeler

 

[BME]

De onderste gebruikt en werkt precies zoals ik graag wil. Top.

Dainj