Code schnipsel:
----------------------------
WorkerName = Range("B10").Value
VarYear = Range("B14").Value
SheetName = WorkerName & VarYear
If "Blatt existert" Then
Shees(SheetName).Select
Else
MsgBox ("blatt existiert nicht")
End If
------------------------------
Danke für eure hilfe