tabbladen sorteren

[ardkapteijn]

Hallo allemaal,

Ik ben nu al tijdje aan het knoeien met het sorteren/aanmaken van tabbladen m.b.v. vb(a.)

Uiteindelijk is de bedoeling dat gegevens vanuit acad ingelezen worden en verwerkt worden
in excel, ieder acad bestand moet in een nieuw tabblad.
Met op de eerste tabblad de "log" gegevens, 2de tabblad verwijzingen etc.
en vanaf het 3de tabblad de daadwerkelijke data.

Het lukt me om een nieuw tabblad aan te maken:
rekenblad.Worksheets.Add.Name = "New"

Echter komt deze dan vooraan te staan, graag zou ik deze achteraan hebben...
en het liefst nog sorteren op nr oplopend vanaf blad 3.

Sorteren zou kunnen met een tool, maar deze werkt niet..
Var1 = rekenblad.Worksheets.Name(2)
geeft: Sheet2

Counter = 2
Var2 = rekenblad.Worksheets.Name(Counter)
geeft: ""


Hoe krijg ik dit wel werkend/voor elkaar?

Alvast bedankt!

mvg, Ard

 

[henkhoogerbrug]

Onderstaande code creëert een nieuw tabblad aan het eind:

Worksheets.Add after:=Sheets(Sheets.Count)

Je kunt ook specifiek een positie aangeven, bijv:

Worksheets.Add after:=Sheets(2)

"after" kun je eventueel ook nog vervangen door "before"

 

[ardkapteijn]

Onderstaande code creëert een nieuw tabblad aan het eind:

Worksheets.Add after:=Sheets(Sheets.Count)

Je kunt ook specifiek een positie aangeven, bijv:

Worksheets.Add after:=Sheets(2)

"after" kun je eventueel ook nog vervangen door "before"

Bedankt voor de reactie!

Maar wat kan de reden zijn waarom "after" en "before" niet wil werken?

Eigenlijk alles werkt behalve het verplaatsen/op de juiste positie plaatsen
van mijn tabbladen.

Is er ook een VB code voor? (werk wel in VBA)

 

[Hoornvan]

ardkapteijn,

Deze code vond ik op Internet.

Place the following in a standard module.
[CODE]Option Explicit
--------------------------------------------------------------------------------
Sub SortingWks()
    Dim i As Long
    Dim j As Long
    For i = 1 To Worksheets.Count
        j = i
        Do While j > 1
            If Worksheets(j).Name < Worksheets(j - 1).Name Then
                Worksheets(j).Move Before:=Worksheets(j - 1)
            End If
            j = j - 1
        Loop
    Next
End Sub

[/CODE]

 

[Hoornvan]

ardkapteijn,

Is er ook een VB code voor?

Ik heb even de zoek functie van de Programmeren in VB (Doorzoek dit forum) gebruikt en kwam op onderstaande link te recht.
Kijk hier eens daar sorteren ze tabbladen in VB.