Hey Leute 

Ich habe mit den folgenden Sub in meine Sheets butonns hinzugefügt. Die navigate funktion ändert sich aber mit variablen aber da soll die funktion gefreezd sein für die button

Wie kann man das erledigen

With ActiveSheet.Buttons.Add(Cells(x, y).Left, Cells(x, y).Top, Cells(x, y).Width, Cells(x, y).Height) ' button in timeline ' button in timeline
    .OnAction = "Navigate" 'sub navigate for going to sheet
    .Text = Caption
    .Name = Name & " " & Range("C31") & " " & Range("D31")
End With
Next

MsgBox "Die neue Etappe ist erfolgreich hinzugefügt."

End Sub