Excel Blatt über Wert in ComboBox auswählen

[Primo Centurio]

Hallo miteinander

ich habe ein Problem mi folgendem Code und ich komme nicht drauf was falsch ist

Code:

Private Sub CommandButton1_Click()

    Dim a As Variant
    Dim b As Variant
    Dim d As Variant
   
    a = Me.ComboBox1
       
    If ComboBox2 = "Januar" Then
   
    d = Me.ComboBox1.Value - 1
   
    Sheets(d).Select
   
    b = ActiveSheet.Range("C18").Value
   
    Worksheets(a).Select
   
    Worksheets(a).Range("D7") = ComboBox4.Value - b
   
    End If
       
End Sub

Die Namen der Tabellenblätter sind Jahreszahlen wie zum Beispiel "2015", "2016", etc.
Wenn ich das Makro ausführe kommt immer der Laufzeitfehler 9 "Index ausserhalb des gültigen Bereichs" und beim Debugger bleibt er bei folgendem Punkt stehen:

Code:

Sheets(d).Select

der Wert wurde jedoch in der variablen "d" gespeichert und das Tabellenblatt mit dem Datum "d" existiert und ist sichtbar.

Was mache ich falsch?

Danke und Gruss

Primo

[Kuwer]

Hallo,

Sheets(CStr(d)).Select

Gruß Uwe