Kann mir jemand sagen welche der zwei untenstehenden Varianten die sinnvollere (schnellere) oder vielleicht auch nur Ressourcen-schonendere ist?
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Variante 1:
If InStr(1, "1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30. _
31.", Sh.Name) 0 Then
'Code ausführen
End If
Variante 2:
Select Case ActiveSheet.Name
Case "1.", "2.", "3.", "4.", "5.", "6.", "7.", "8.", "9.", "10.", "11.", "12.", "13.", "14.", " _
15.", "16.", "17.", "18.", "19.", "20.", "21.", "22.", "23.", "24.", "25.", "26.", "27.", "28.", "29.", "30.", "31.", ""
'Code ausführen
Case Else
Exit Sub
End Select
End Sub
DankeLorenz