Excel Macro通过按钮/快捷键运行正常 从Function调用无反应无报错

该问题是Excel自定义工作表函数（UDF）的固有运行限制导致的，属于官方设计的正常安全机制，并非代码语法错误：

• UDF的设计定位仅为计算并返回值到其所在的单元格，禁止修改Excel对象模型的其他内容，包括但不限于：修改工作表可见性、切换激活工作表、修改其他单元格的内容/格式、执行复制粘贴操作、弹出交互弹窗等。一旦代码执行到这类操作，VBA会直接静默终止运行，不会抛出任何报错。
• 你写的HALBneu过程中所有核心操作（显示/隐藏工作表、Activate切换工作表、写入单元格值、复制粘贴格式和公式、弹出MsgBox）都属于UDF的禁止操作范围，因此被系统拦截无法正常执行。

根据你的使用场景选择对应方案即可：

• 如果你只是需要手动触发该功能，直接调用HALBneu这个Sub即可，不需要额外套一层Function，你之前通过按钮、F5/F8运行的方式本来就是Sub的标准调用方式，逻辑完全正常。
• 如果你需要通过单元格操作自动触发该功能，不要用自定义Function，改用工作表事件过程（例如Worksheet_Change，检测指定单元格的值变动后自动调用HALBneu），事件属于Sub类型，没有UDF的运行限制。
• 如果你是在其他VBA代码中调用该逻辑，直接在Sub过程中调用HALB_auto_erstellen或HALBneu即可，不要在工作表单元格中输入=HALB_auto_erstellen()作为公式使用。

你现有的HALBneu代码中大量使用Activate切换工作表，属于不稳定的写法，建议直接通过工作表对象操作，避免依赖激活状态，示例参考：

Sub HALBneu_opt()
    Dim answer As VbMsgBoxResult
    Dim wsBOMKopf As Worksheet, wsHALB As Worksheet, wsBOM As Worksheet
    Dim m As Long
    
    answer = MsgBox("Soll ein neuer HALB Artikelkopf mit ??? erstellt werden?", vbQuestion + vbYesNo + vbDefaultButton2, "Neuer Artikel")
    If answer = vbYes Then
        ' 提前绑定所有工作表对象，不需要后续切换激活
        Set wsBOMKopf = ThisWorkbook.Sheets("BOM_Kopf")
        Set wsHALB = ThisWorkbook.Worksheets("HALB")
        Set wsBOM = ThisWorkbook.Worksheets("BOM")
        
        wsBOMKopf.Visible = True
        m = wsHALB.Cells(wsHALB.Rows.Count, 1).End(xlUp).Row + 16
        
        If wsBOM.Cells(6, 1) <> "leerer Artikelnummer" Then
            wsBOMKopf.Cells(23, 10) = wsBOM.Cells(6, 1)
        End If
        
        ' 直接复制粘贴，不需要切换激活目标表
        wsBOMKopf.Range("A21:M28").Copy
        wsHALB.Cells(m, 1).PasteSpecial Paste:=xlPasteFormulas
        wsHALB.Cells(m, 1).PasteSpecial Paste:=xlPasteFormats
        
        wsBOMKopf.Visible = False
        ' 清理剪贴板
        Application.CutCopyMode = False
    End If
End Sub

内容的提问来源于stack exchange，提问作者Fabian