Just nu i M3-nätverket
Jump to content

Plocka namnet på arbetsbladet


frodo

Recommended Posts

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å?

 

 

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...