VBA Excel Button Makro Fehler

Question

Ich programmiere programmatisch eine Schaltfläche auf einem Arbeitsblatt, und es legt gut, aber wenn ich darauf klicke, bekomme ich eine Fehlermeldung "Kann das Makro nicht ausführen. Das Makro möglicherweise nicht in dieser Arbeitsmappe oder alle Makros verfügbar kann deaktiviert sein ". Ich glaube, ich habe es gut eingerichtet, aber hier ist mein Code, wenn jemand etwas entdeckt, würde es sehr schätzen.

Sub ButtonGenerator() 

    Application.ScreenUpdating = False 

    Dim wsCRC As Worksheet 
    Set wsCRC = Worksheets("CRC") 

    Dim lcolumncrc As Long 
    lcolumncrc = CRC.LastColumnInCRC 

    'Button Declarations 
    Dim ShowHideDates As Button 

    wsCRC.Buttons.Delete 

    'Show/Hide Dates Button Set Up 
    Dim SHDrange As Range 

    Set SHDrange = wsCRC.Range(Cells(5, lcolumncrc + 2), Cells(5, lcolumncrc + 4)) 
    Set ShowHideDates = wsCRC.Buttons.Add(SHDrange.Left, SHDrange.Top, SHDrange.Width, SHDrange.Height) 

    With ShowHideDates 
     .OnAction = "wsCRC.SHDbtn" 
     .Caption = "Show Hidden Date Columns" 
     .Name = "ShowHideDates" 
    End With 

    Application.ScreenUpdating = True 

End Sub 

Sub SHDbtn() 

    Dim wsCRC As Worksheet 
    Set wsCRC = Worksheets("CRC") 
    Dim ShowHideDates As Button 

    Dim CurrentDateColumn As Long 
    CurrentDateColumn = GetTodaysDateColumn() 

    ActiveSheet.Unprotect 

    If ShowHideDates.Caption = "Hide Old Date Columns" Then 
     wsCRC.Range(wsCRC.Cells(5, 10), wsCRC.Cells(5, CurrentDateColumn - 6)).EntireColumn.Hidden = True 
     ShowHideDates.Caption = "Show Hidden Date Columns" 
    Else 
     wsCRC.Range(wsCRC.Cells(5, 10), wsCRC.Cells(5, CurrentDateColumn - 6)).EntireColumn.Hidden = False 
     ShowHideDates.Caption = "Hide Old Date Columns" 
    End If 

    ActiveSheet.Protect 

End Sub 

Answer 1

Sie beziehen sich auf ein Arbeitsblatt mit dem Label, das Sie in Ihrem Code angegeben haben, nicht als Arbeitsblatt.

Versuchen Wechsel:

.OnAction = "wsCRC.SHDbtn" 

zu

.OnAction = "CRC.SHDbtn" 

oder sogar

.OnAction = "SHDbtn"