Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

welche ist die bessere

welche ist die bessere
Lorenz
Hallo VBA-Profis
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
Danke
Lorenz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: welche ist die bessere
01.11.2010 12:06:41
ransi
HAllo
Teste mal selber ;-)
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub abc()
    Dim D As Double
    D = Timer
    Dim L As Long
    For L = 1 To 100000
        Select Case Val(ActiveSheet.Name) & "."
            Case 1 To 31 & "." 'MsgBox "Treffer"
            Case Else 'MsgBox "War nix"
        End Select
    Next
    Debug.Print "abc"; Timer - D
End Sub


Public Sub efg()
    Dim D As Double
    D = Timer
    Dim L As Long
    For L = 1 To 100000
        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.", ActiveSheet.Name) <> 0 Then
        End If
    Next
    Debug.Print "efg"; Timer - D
End Sub


Public Sub hij()
    Dim D As Double
    D = Timer
    Dim L As Long
    For L = 1 To 100000
        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
        End Select
    Next
    Debug.Print "hij"; Timer - D
End Sub


ransi
Anzeige
AW: welche ist die bessere
01.11.2010 12:08:55
Nepumuk
Hallo,
das dürfte die schnellste sein:
If Cbool(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)) Then

Gruß
Nepumuk
Anzeige
Danke Nepumuk owT
01.11.2010 13:03:17
Lorenz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige