Get SheetName by Codename

[thowe]

edit: tippfehler
Hallöchen,


hier eine kleine Funktion um - mit CodeName - den Arbeitsblattname (Sheets.Name) zu erhalten.
Könnte noch um ein Errorhandling erweitert werden
Das bringt mich zum nächsten Thema, wie man ein "globales Errorhandling (try, catch) einführt) -> wenn das nicht schon überbordernd wäre...

LG

NS: Ich hoffe es ist im Sinne des Forumsbetreibers das man kleine Helferlein zur Verfügung stellt.

LG

Code: Alles auswählen

'-------------------------------------------------------------
'
' @purpose:      get the SheetName of the targeted Worksheet by
'               CodeName of the Sheet
' @params:      strSheetCodeName, objWorkbook
' @return:      Boolean
' author:       thowe, Thomas Weber
' @version:     0.0.9
' @depreciated: None
' @source:
'
'-------------------------------------------------------------


Function GetSheetNameByCodeName(strSheetCodeName As String, Optional objWorkbook As Excel.Workbook) As String

    Dim wksSheet As Excel.Worksheet
    Dim strSheetName As String
    
    'initialize
    strSheetName = ""
    If objWorkbook Is Nothing Then Set objWorkbook = ThisWorkbook
    
    
    For Each wksSheet In objWorkbook.Worksheets
        If wksSheet.CodeName = strSheetCodeName Then
            strSheetName = wksSheet.Name
            Exit For
        End If
        
    Next
    
    If Not strSheetName = "" Then GetSheetNameByCodeName = strSheetName
    'reset, unset, delete
    
    Set objWorkbook = Nothing
    
End Function

[d'r Bastler]

Ich hoffe es ist im Sinne des Forumsbetreibers das man kleine Helferlein zur Verfügung stellt.

ES IST! vor Allem im Interesse der Besucher, die genau solche Tipps suchen.

Vielen Dank!