Hallo,

ich hatte einige Anleitungen im Internet ausprobiert - die alle nicht funktionierten, bis auf die unten aufgeführt. Die klappte super. Jetzt habe ich mein Office aktualisiert (auf Microsoft® Excel® für Microsoft 365 MSO (Version 2408 Build 16.0.17928.20336) 32 Bit) und nun bricht das Script mit Fehler ab.

Er meckert diese Zeile an mit "Objekt erforderlich":
AccessibleChildren cmnB, Choose(j, 0, 3, 0, 3, 0, 3, 1), 1, cmnB, 1

Ich habe den Code nur übernommen - kenne mich damit nicht aus. Vor Update lief er sauber.

Danke für die Hilfe!



#If VBA7 Then
Private Declare PtrSafe Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, _
ByVal iChildStart As Long, ByVal cChildren As Long, _
ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
Public Const myVBA7 As Long = 1
#Else
Private Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, _
ByVal iChildStart As Long, ByVal cChildren As Long, _
ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
Public Const myVBA7 As Long = 0
#End If

Public Sub EvRClearOfficeClipBoard()



Dim cmnB, IsVis As Boolean, j As Long, Arr As Variant
Arr = Array(4, 2) '4 and 2 for 32 bit, 7 and 0 for 64 bit
Set cmnB = Application.CommandBars("Office Clipboard")
IsVis = cmnB.Visible
If Not IsVis Then
cmnB.Visible = True
DoEvents
End If

For j = 1 To Arr(0 + myVBA7)
AccessibleChildren cmnB, Choose(j, 0, 3, 0, 3, 0, 3, 1), 1, cmnB, 1
Next

cmnB.accDoDefaultAction CLng(Arr(2 + myVBA7))

Application.CommandBars("Office Clipboard").Visible = IsVis

End Sub