Verzweiflung mit Symbolleiste

Hallo zusammen,
hatte das Problem vor einiger Zeit schon mal angesprochen (https://www.herber.de/forum/archiv/1016to1020/t1019837.htm#1019892), bin bisher aber leider noch zu keiner Lösung gelangt.
Folgendes Problem.
Ich habe eine Symbolleiste erstellt, in der einige Makros hinterlegt sind.
Diese Symbolleiste soll jedem Nutzer einer bestimmten Datei zu Verfügung stehen.
Diese Datei liegt auf einem Server, sodass man von überall in der Firma darauf zugreifen kann.
Also habe ich in dieser Datei die Symbolleiste über Anpassen--Symbolleisten--Anfügen von Benutzerdefinierte Symbolleisten nach Symbolleisten dieser Arbeitsmappe kopiert.
Das hat auch soweit funktioniert.
Nun habe ich aber an dieser Symbolleiste schon einige Änderungen vornehmen müssen und nach jeder Änderung verfahre ich nach obigen Schema. Aber wenn jetzt ein anderer Kollege die Datei öffnet, bekommt er die Änderung nicht zu Gesicht. Warum nicht? Alle Rechner sind mit dem gleichen Image aufgesetzt worden, haben also den gleichen Softwarestand. Wir haben auch schon mal die Excel11.xlb und die Personl.xls Datei probehalber kopiert, nichts hat geholfen.
Weiß jetzt echt nicht mehr weiter. Wie kann ich Excel dazu bringen, Änderungen an der Symbolleiste auch für andere User sichtbar zu machen?
Danke euch.
Gruss..Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HAllo Rudi,
hab auch was gefunden und zwar das hier:
ClassModule: DieseArbeitsmappe


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DeleteCmdBar
End Sub


Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim iCounter As Integer
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="NewToolbar", _
temporary:=True, _
Position:=msoBarTop)
oBar.Visible = True
For iCounter = 1 To 5
Set oBtn = oBar.Controls.Add
With oBtn
.FaceId = 70 + iCounter
.Caption = "&" & iCounter & " Befehl"
.OnAction = "Befehl" & iCounter
End With
Next iCounter
End Sub

StandardModule: basMain
Sub Befehl1()
MsgBox "Ich bin Befehl 1"
End Sub

Sub Befehl2()
MsgBox "Ich bin Befehl 2"
End Sub

Sub Befehl3()
MsgBox "Ich bin Befehl 3"
End Sub

Sub Befehl4()
MsgBox "Ich bin Befehl 4"
End Sub

Sub Befehl5()
MsgBox "Ich bin Befehl 5"
End Sub

Sub DeleteCmdBar()
On Error Resume Next
Application.CommandBars("NewToolbar").Delete
On Error GoTo 0
End Sub

Jetzt möchte ich aber die einzelnen Schaltflächen nicht unbedingt nur 1-5 nennen, sondern eigentlich eher aussagekräftig zb. Gebäudeansicht Formatieren oder XLS Datei kopieren usw.
Wie stell ich das hier an?Danke
Gruss..Micha

Sub LeerZellenlöschen() Range("A2:G2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.AutoFilter Field:=3, Criteria1:="=" Application.CutCopyMode = False Selection.EntireRow.Delete Selection.AutoFilter Field:=3 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A2").Select End Sub

Sub Makro2() Dim lz lz = Cells(Rows.Count, 1).End(xlUp).Row Range("C1").Select Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:="=" Range("C5:C14").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Selection.AutoFilter Range("C1").Select End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verzweiflung mit Symbolleiste

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread