Ich versuche, die Lösung aus diesem Beitrag zu übernehmen und habe das Makro leicht modifiziert (ich muss nur einen Klick auf die Schaltfläche hinzufügen), damit es jetzt ist
Sub AdjustValue()
Dim btnName As String
Dim targetCell As String
Dim addAmount As Integer
btnName = Application.Caller
targetCell = Mid(btnName, 5, Len(btnName))
addAmount = 1
ActiveSheet.Range(targetCell).Value = ActiveSheet.Range(targetCell).Value + addAmount
End Sub
Wenn ich auf die Schaltfläche "Add_B3" klicke, wird ein Fehler verursacht
Das Makro ist in dieser Arbeitsmappe möglicherweise nicht verfügbar oder alle Makros sind möglicherweise deaktiviert
Ich habe das Makro sowohl auf dem Blatt gespeichert, in dem ich arbeite, als auch auf ThisWorkbook.
Ich habe meine Makroeinstellungen im Vertrauensstellungscenter auf "Alle Makros mit Benachrichtigung deaktivieren" gesetzt, aber selbst wenn ich "Alle Makros aktivieren" auswähle, ist der Fehler weiterhin aufgetreten, und ich kann nicht herausfinden, warum.
Antworten:
Es sieht so aus, als ob die Zuordnung der Schaltfläche zum Makro aufgehoben wurde. Versuchen Sie, die Schaltfläche dem Makro neu zuzuweisen.
Wenn Sie zum ersten Mal mit der rechten Maustaste auf die Schaltfläche klicken und "Makro zuweisen" wählen, sollte im Textfeld "Makroname" angezeigt werden, welches Makro der Schaltfläche derzeit zugewiesen ist.
quelle