ich suche nach dem richtigen Befehl. Ich will y von 7 bis 26 und danach von 29 bis 34 zählen lassen. Gibts da eine Möglichkeit?
Mein Versuch:
For y = 7 To 26 and 29 to 34
Next y
Vielen Dank
Grüße Sebastian
Sub Test
For y = 7 To 26 and 29 to 34
Next y
End Sub
oder so.:
Sub Test
For y = 7 To 26; 29 to 34
Next y
End Sub
trotzdem Danke
Sub aaa()
Dim vArr, i As Long, y As Long
vArr = Array(Array(7, 29), Array(26, 34))
For i = LBound(vArr(0)) To UBound(vArr(0))
For y = vArr(0)(i) To vArr(1)(i)
'mach was
Next y
Next i
End Sub
Sub Quatsch()
Dim i As Integer
For i = 7 To 34
Select Case i
Case Is 28
'Dein Code
End Select
Next
End Sub
Gruß Ralf
For y = 7 to 34
if y = 27 then y = 29
Next
Gruß Daniel
Sub test()
Dim t As Double
Dim i As Long, y As Long, z As Long
Const anz = 100000000
t = Timer
For i = 1 To anz
Next
Debug.Print "Leerschleife", Timer - t
t = Timer
For i = 1 To anz
If y = 27 Then y = 29
Next
Debug.Print "If Then", Timer - t
t = Timer
For i = 1 To anz
y = y - 2 * CInt(y = 27)
Next
Debug.Print "Vergleich", Timer - t
t = Timer
For i = 1 To anz
z = y + 2 * (y \ 27)
Next
Debug.Print "Division", Timer - t
t = Timer
For i = 1 To anz
z = y + IIf(y >= 27, 2, 0)
Next
Debug.Print "IIF", Timer - t
End Sub
der ergibt bei mir folgende Laufzeiten (c.a. in sec)