Benutzerdefinierte Symbolleisten

Hallo Excel-Freaks,
bin leider blutiger Anfänger in Sachen Makros und VBA. Vielleicht könnt Ihr mir ja weiterhelfen. Ich habe eine neue Arbeitsmappe erstellt ("Test.xls"), bei deren Aufruf auch eine benutzerdefinierte Symbolleiste aufgerufen wird. Diese Symbolleiste habe ich zudem mit Makros versehen um die einzelnen Sheets (ca. 50) besser aufrufen zu können. Wenn ich nun von der Originaldatei eine Sicherungskopie erstellen möchte (Datei speichern unter "Test0705" z.B.)funktionieren in der neue Mappe alle Makros einwandfrei. Wenn ich nun anschließend die Originaldatei wieder aufrufe und versuche die Makros auf der Symbolleiste zu starten verursacht das wiederum eine Meldung, dass "Test0705" Makros enthält. Wieso?
P.S.: Wenn ich die Makros im Original nach der Sicherung über Extras Makros starte funktioniert es wie gehabt. Liegt der Fehler an der Symbolleiste?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
einfach so wie das erste


'       Wort mit Untermenü
' FaceId Nr auf folgender Homepage <a href="http://www.excel-addins.de/">http://www.excel-addins.de/</a>
On Error Resume Next
'       Menü löschen falls schon vorhanden
Application.CommandBars("PreislisteO").Controls("Menü").Delete
On Error GoTo 0
With Application.CommandBars("PreislisteO").Controls.Add(Type:=msoControlPopup)
.BeginGroup = True 'Trennlinie
On Error GoTo 0
.Caption = "&Menü"
'           erster Menüpunkt
With .Controls.Add
.FaceId = 330
.Caption = "&Ausblenden"
.OnAction = "Ausblenden"
End With
'           Zweiter Menüpunkt
With .Controls.Add
.FaceId = 2105
.Caption = "&Einblenden"
.OnAction = "Einblenden"
End With
'           Untermenü erzeugen:
'           dritter Menüpunktmit Untermenü
With .Controls.Add(Type:=msoControlPopup)
'               Trennlinie
.BeginGroup = True
.Caption = "&Untermenü Spezial"
With .Controls.Add
.FaceId = 330
.Caption = "&Ausblenden"
.OnAction = "Ausblenden"
End With
With .Controls.Add
.FaceId = 2105
.Caption = "&Einblenden"
.OnAction = "Einblenden"
End With
End With
'           Wieder normal weiter:
'           vierter menüpunkt
With .Controls.Add
.FaceId = 330
.Caption = "&Ausblenden"
.OnAction = "Ausblenden"
End With
End With
On Error Resume Next
'       Menü löschen falls schon vorhanden
Application.CommandBars("PreislisteO").Controls("Menü2").Delete
On Error GoTo 0
With Application.CommandBars("PreislisteO").Controls.Add(Type:=msoControlPopup)
.BeginGroup = True 'Trennlinie
On Error GoTo 0
.Caption = "&Menü2"
'           erster Menüpunkt
With .Controls.Add
.FaceId = 330
.Caption = "&Ausblenden"
.OnAction = "Ausblenden"
End With
'           Zweiter Menüpunkt
With .Controls.Add
.FaceId = 2105
.Caption = "&Einblenden"
.OnAction = "Einblenden"
End With
'           Untermenü erzeugen:
'           dritter Menüpunktmit Untermenü
With .Controls.Add(Type:=msoControlPopup)
'               Trennlinie
.BeginGroup = True
.Caption = "&Untermenü Spezial"
With .Controls.Add
.FaceId = 330
.Caption = "&Ausblenden"
.OnAction = "Ausblenden"
End With
With .Controls.Add
.FaceId = 2105
.Caption = "&Einblenden"
.OnAction = "Einblenden"
End With
End With
'           Wieder normal weiter:
'           vierter menüpunkt
With .Controls.Add
.FaceId = 330
.Caption = "&Ausblenden"
.OnAction = "Ausblenden"
End With
End With

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread