alfabetiske ark..HASTER

NEJ.du kan flytte ,kopiere og trække ark

Følgende makro kan bruges (Opret et modul og kopier koden herind)

Sub sorter()
    Dim sh1  As Worksheet
    Dim sh2 As Worksheet
    For Each sh1 In Worksheets
        For Each sh2 In Worksheets
            If sh1.Name > sh2.Name Then
            sh2.Move sh1
            End If
        Next sh2
    Next sh1
End Sub

VH Nerøs

grundet entusiasmen fra nerøs fordeles pointene således...

10 / 50

nerøs >

jeg ved dog ikke hvordan man arbejder med VB i Excell da jeg ikke er god til VB.
Svaret kan dog lede mig på vej...

Du kan prøve følgende:
1. indspil ny makro,
2. Stop indspilningen med det samme,
3. Vælg at redigere den indspillede makro (VBA editoren åbnes),
4. kopier den forslåede kode ind under den netop indspillede makro
5. Luk VBA editoren

Makroen Sorter kan herefter aktiveres via makromenuen

VH Nerøs