Nach Umstellung VBA.AppActivate "Microsoft Excel"

[grechos]

Moin zusammen
nach meiner Umstellung auf Excel 2016 funktionieren einige Makros nicht
insbesondere geht um um :
 VBA.AppActivate "Microsoft Excel"
Er schmeisst mir immer einen Laufzeitfehler 5

Anbei mein Code :
----------------------------------
Public Sub navigationClick()
   
    Dim Markierung As Range
    Set Markierung = Selection
   
    If spd_phb_06.Range("K7").Value > 507 Then
        frm_DataButtons.top = 507
    Else
        frm_DataButtons.top = spd_phb_06.Range("K7").Value
    End If
    If spd_phb_06.Range("L7").Value > 721 Then
        frm_DataButtons.left = 721
    Else
        frm_DataButtons.left = spd_phb_06.Range("L7").Value
    End If
    frm_DataButtons.Show
    spd_phb_06.Range(spd_phb_06.Cells(Markierung.Row, Markierung.Column), spd_phb_06.Cells(Markierung.Row + Markierung.Rows.Count - 1, Markierung.Column + Markierung.Columns.Count - 1)).Select
    VBA.AppActivate "Microsoft Excel"
   
End Sub
-------------------------------------------------------------


Kann jemand helfen was ich da einzutragen habe

LG an alle

[Kuwer]

Hallo,

lass mal das VBA. weg.

Gruß Uwe

[grechos]

Hi Uwe danke
nachdem ich das .VBA weggenommen habe ist der Fehler immer noch da

[Bamberg]

Servus grechos,

bin mir nicht ganz sicher, ich denke, ab 2010 lässt MS das "Microsoft" weg ... versuch doch mal ...

VBA.AppActivate "Excel"

LG Gerd

... lass Dir doch mal die Beschreibung der Application anzeigen ...

MSGBOX Application.Caption

[Kuwer]

hallo,

... lass Dir doch mal die Beschreibung der Application anzeigen ...

MSGBOX Application.Caption

genau, das kann man ja auch direkt benutzen:

VBA.AppActivate Application.Caption
'oder
VBA.AppActivate Application.ActiveWindow.Caption

Gruß Uwe

[grechos]

Moinsen leider kommt auch keine Beschreibung raus ich bin am Ende mit meinem Latein

[Bamberg]

Setze doch mal den Code ...

MSGBOX Application.Caption

unmittelbar nach dieser Zeile ....

Public Sub navigationClick()