Plocka namnet på arbetsbladet

[frodo]

Hej

 

Jag är novis in området VBA och skulle behöva tips på hur jag kan kopiera namnen på bladen i en arbetsbok. När jag väl för lös dem ska jag lista dem. Är det någon som har ett tips eller två?

 

 

 

[MH2]

Borde gå:

[color="#0000ff"]Sub[/color] ListaBlad()
[color="#0000ff"]Dim[/color] Blad As Worksheet
[color="#0000ff"]Dim[/color] i As Integer
[color="#0000ff"]Dim[/color] Startpunkt As Range


[color="#0000ff"]Set[/color] Startpunkt = ActiveCell
[color="#006400"]' Eller ange en startadress manuellt[/color]

[color="#0000ff"]For[/color] i = 1 [color="#0000ff"]To[/color] ActiveWorkbook.Worksheets.Count
    Startpunkt.Offset(i - 1, 0).Value = _
    ActiveWorkbook.Worksheets(i).Name
[color="#0000ff"]Next[/color] i
[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]

 

Du kan naturligtvis läsa in Namnen i en array istället och sedan skriva in dom när det passar bättre.

[inlägget ändrat 2006-10-31 21:45:37 av MH2]