Private Sub ActiveSheet()
With Worksheets("Alternativen")
If CLng(.ComboBox3) > Worksheets("Stammdaten").Cells(.Range("O4") + 2, 28) _
Or .OptionButton1 = True _
Or .OptionButton3 = True Then
Worksheets("Alternativen").Range("H24") = "Text!"
Worksheets("Alternativen").Range("H25") = "Text2"
.Hyperlinks.Add Anchor:=.Range("H27"), _
Address:="Link", _
ScreenTip:="Text3", _
TextToDisplay:="Text4"
Else:
Worksheets("Alternativen").Range("H24:H27") = ""
End If
End With
End Sub