ich habe festgestellt, daß jedesmal, wenn ich heute die entsprechende Mappe geöffnet habe, der Smily nicht erschien und im Ausgleich zum Smily jeweils ein anderes Symbol aus der Symbolleits `dran glauben mußte.
Kein Wunder, daß mit der Zeit keine Smbolleiste mehr vorhanden ist.
Aber kannst du dir erklären, warum der Smily nicht auftaucht?
Hier nochmal die beiden Makros:
Private Sub Workbook_Open()
'Symbolleiste herstellen
Application.CommandBars("Standard").Visible = True
'Smily einfügen
With Application.CommandBars("Standard")
.Controls.Add Type:=msoControlButton, Id _
:=2950, Before:=7
'Makro zuordnen
.Controls(7).OnAction = "zurück_zu_Original_APH"
End With
End Sub
Private Sub Workbook_Deactivate()
'Smily löschen
Application.CommandBars("Standard").Controls(7).Delete
End Sub
Vielleicht kann uns aber auch jemand anderes weiterhelfen!?
Ich würde mich über Lösungsvorschläge freuen, da ich sonst immer am "Neuanpassen" meiner Smbolleiste bin.
Danke,
Stephanie