Macro uitvoeren geschreven in VBA (niet met macro)

[Georgyboy]

Goeiedag allemaal,

Ben aan het klungelen !


Ik probeer iets in VBA maar krijg foutmelding (compileerfout bij Next Worksheet)
InhoudAllebladen (is geel gemarkeerd)

regelmatig komt : Privacywaarschuwing Macro´s ActiveX besturings ........

Code :
Sub InhoudAllebladen()
Dim i As Integer
Dim Weekblad As Worksheet
For Each werkblad In ActiveWorkbook.Worksheets
i = i + 1
Range("A" & i) = Sheets(i).Name
Next Worksheet
End Sub

vragen:
1) In blad inhoud wens ik in kolom A alle werkbladen
2) waar moet de code staan ?
vbaProject --> Thisworkbook --> object algemeen
3) hoe activeer je deze code ? in VBA via F5 of ?
wat is de makkelijkste manier via het werkblad in excel

 

[Roncancio]

Goeiedag allemaal,

Ben aan het klungelen !


Ik probeer iets in VBA maar krijg foutmelding (compileerfout bij Next Worksheet)
InhoudAllebladen (is geel gemarkeerd)

regelmatig komt : Privacywaarschuwing Macro´s ActiveX besturings ........

Code :
Sub InhoudAllebladen()
Dim i As Integer
Dim Weekblad As Worksheet
For Each werkblad In ActiveWorkbook.Worksheets
i = i + 1
Range("A" & i) = Sheets(i).Name
Next Worksheet
End Sub

vragen:
1) In blad inhoud wens ik in kolom A alle werkbladen
2) waar moet de code staan ?
vbaProject --> Thisworkbook --> object algemeen
3) hoe activeer je deze code ? in VBA via F5 of ?
wat is de makkelijkste manier via het werkblad in excel

Je gebruikt Dim Weekblad maar in de For Each heb je het over werkblad.

Met vriendelijke groet,


Roncancio

 

[Gert Bouwmeeste]

En deze

Next [COLOR="Red"][B]Worksheet[/B][/COLOR]

moet Worksheet weggehaald worden

 

[Wigi]

En deze

Next [COLOR="Red"][B]Worksheet[/B][/COLOR]

moet Worksheet weggehaald worden

Inderdaad.

Of dit nemen:

Next werkblad

of is het nu:

Next Weekblad

?

PS: graag code tussen code tags zetten, anders is het veel minder leesbaar. Dank

 

[Georgyboy]

Het is gelukt,

Bedankt voor de info en excuses voor de schrijffout

Hoe kan ik dit uitvoeren via het excelblad ?
of moet dit via VBA --> Sub/Userform (F5) ?

En hoe kan dit weg Privacywaarschuwing Macro´s ActiveX besturings ........ ? in 2007

Bedankt hé
Georgyboy

 

[Wigi]

De code komt in een module.

Je voert die uit met F5 in de procedure, of vanuit Excel via Alt-F8, of door een knop op het blad te zetten en daar de macro aan toe te wijzen.

 

[Roncancio]

De code komt in een module.

Je voert die uit met F5 in de procedure, of vanuit Excel via Alt-F8, of door een knop op het blad te zetten en daar de macro aan toe te wijzen.

Of bijvoorbeeld bij het opstarten van het bestand.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Georgyboy

let erop dat je eerst de inhoud van die cellen wist, want als je een tabblad verwijdert en de cellen niet gewist, dan klopt het niet meer (1 cel teveel namelijk).

 

[Georgyboy]

Bedankt voor alle nuttige info,

Groetjes,
Georgyboy