Für den folgenden Code

If Sheets("sheet1").Range("A1").Value = "option_1" Then
    Sheets("sheet1").Range("A1").Value = "option_2"
ElseIf Sheets("sheet1").Range("A1").Value = "option_2" Then
    Sheets("sheet1").Range("A1").Value = "option_3"
ElseIf Sheets("sheet1").Range("A1").Value = "option_3" Then
    Sheets("sheet1").Range("A1").Value = "option_4"
...
End IF

und

Select Case Sheets("sheet1").Range("A1").Value
    Case Is = "option_1"
        Sheets("sheet1").Range("A1").Value = "option_2"
    Case Is = "option_2"
        Sheets("sheet1").Range("A1").Value = "option_3"
    Case Is = "option_3"
        Sheets("sheet1").Range("A1").Value = "option_4"
    ...
End Select

Fragen:

1) Ich frage mich, welcher Weg schneller wäre. Und wenn möglich, könnten technische Details erklärt werden?

2) Unabhängig von der Effizienz, welche Methode ich in diesem Fall für die bessere Codierung verwenden soll.

3) Irgendeine andere "einfache" Möglichkeit, einen Wert aus einem Array zu kreisen?