[Excel VBA] Sheets in VBA hebben andere naam dan in Excel

[Mastakilla]

Ik heb een Excel met enkele VBA functies, waarin een variabel aantal sheets aanwezig zijn en het belangrijk is dat deze een specifieke naam hebben. Ik heb echter ontdekt dat, zelfs als je de sheets renamed in Excel, ze in VBA nog steeds "Sheet1", "Sheet2", etc noemen. Zie screenshot hieronder:



De gele naam is de naam die je in VBA kan gebruiken, terwijl de rode naam de naam is die je in Excel gebruikt.

Is het mogelijk om de naam VBA-sheet-naam te renamen, of de Excel-sheet-naam te gebruiken in VBA?

Ik gebruik momenteel volgende functie als workaround, maar deze is niet echt performant:

code:

Private Function findTableByName(ByVal tablename As String) As ListObject
    Const ProcName As String = "findListObject"
    On Error GoTo ClearError

    Dim lo As ListObject
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
            Set lo = ws.ListObjects(tablename)
        On Error GoTo 0
        If Not lo Is Nothing Then
            Set findTableByName = lo
            Exit For ' stop looping, it is found
        End If
    Next ws
    
ProcExit:
    Exit Function
ClearError:
    Debug.Print "'" & ProcName & "': Unexpected Error!" & vbLf _
              & "    " & "Run-time error '" & Err.Number & "':" & vbLf _
              & "    " & Err.Description
    Resume ProcExit
End Function

Deze roep ik dan als volgt aan:
Set specificationsTable = findTableByName("Specifications")

Alvast bedankt!

[pagani]

Je kunt een sheet gewoon refereren met:

code:

Worksheets("IWDA")

[Mastakilla]

Ah, vreemd... Enkele dagen geleden, toen ik de VBA code aan het maken was, was de "Name" property nog readonly en kon ik deze niet aanpassen, maar nu dus wel...



Ik vermoed dat dit komt omdat ik de Excel nog moest opslaan als xlsm ipv xls...

Maar dit kunnen renamen, is eigenlijk al een oplossing voor mijn probleem

[Mastakilla]

pagani schreef op donderdag 3 november 2022 @ 11:22:
Je kunt een sheet gewoon refereren met:

code:

Worksheets("IWDA")

Edit:
Op het eerste zicht, heb je gelijk en kan je gewoon de sheet bereiken met de Excel-sheet-naam, zonder het object te renamen in VBA. Toen ik dit eerder probeerde, lukte me dit niet... Ik vermoed dat ik iets verkeerd heb gedaan, aangezien ik nog niet zoveel VBA ervaring heb...

[ Voor 43% gewijzigd door Mastakilla op 03-11-2022 11:39 ]