Symbolleisten Makro zuweisen
haw
ich habe nachstehendes Makro zur Korrektur der Zuweisung der Makros zu den Symbolen der Symbolleiste (wird dazu verwendet, den Gesamtpfad zur PERSONL.XLS zu entfernen und nur den Dateinamen PERSONL.XLS stehen zu lassen, da Excel sonst die PERSONL.XLS immer neu öffnen will, was nicht klappen kann):
Sub ZuweisungKorrigieren()
Dim oBar As CommandBar, efz%
Dim oCtr As CommandBarControl
Dim oBtn As CommandBarButton
Dim rNam$
For Each oBar In CommandBars
On Error Resume Next
For Each oCtr In oBar.Controls
If InStr(oCtr.OnAction, "PERSONL") Then
efz = Cells(Rows.Count, 1).End(xlUp).Row + 1
rNam = Mid(oCtr.OnAction, InStr(oCtr.OnAction, "!"), 50)
rNam = "PERSONL.XLS" & rNam
oCtr.OnAction = rNam
End If
Next oCtr
On Error GoTo 0
Next oBar
End Sub
Diese Zuweisungen werden durch mein Makro nicht berücksichtigt und ich weiß nicht wie ich diese "Untersymbole" ansprechen kann.
Vielleicht weiß jemand Rat.
Vielen Dank
Heinz
Anzeige