omzetten namen tabbladen

[nobody11]

Sub test()
Dim i As Integer
Dim ws As Worksheet
For Each ws In Worksheets
For i = 1 To Worksheets.ws.Count
Worksheets.ws(i).Name = i
Next i
Next ws
End Sub

wat is er mis met deze code? Ik wil graag de verschillende worksheets omzetten naar getallen afhankelijk van hun rang.. dus sheet1 moet 1 heten, sheet 2 2 enz..

 

[Wigi]

ws(i).Name = i

 

[Warme bakkertje]

Sub test()
Dim ws As Worksheet
    For Each ws In Worksheets
        If Len(ws.Name) = 5 Then
            ws.Name = Right(ws.Name, 1)
        Else
            ws.Name = Right(ws.Name, 2)
        End If
    Next
End Sub

Mvg

Rudi

 

[nobody11]

ws(i).Name = i

hey wigi, met jou code krijg ik

"method or data member not found".. wat kan hier de oorzaak van zijn? (ik wil het goed leren, vandaar deze vraag ..)
warmbakker, jou oplossing werkte idd, maar het moet zijn: if len(ws.name)=6 anders laat hij de t staan in sheeT (jij werkte mss met een nederlandse versie waar er idd maar 5 tekens zijn in blad1 )

bedankt!

 

[Warme bakkertje]

Inderdaad

Mvg

Rudi

 

[Wigi]

inderdaad,

ws.Name = i

of

sheets(i).Name = i

of

worksheets(i).Name = i

(als er enkel gewone tabbladen zijn, geen grafiekenbladen of zo).

Wigi

 

[Warme bakkertje]

@Nobody11 Jouw code werkte sowieso niet. Doorloop ze maar eens stap voor stap (F8) en kijk wat er gebeurt.
Dan mag de vraag nog even op opgelost.

Mvg

Rudi