Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Symolleiste mit Mappe speichern

Symolleiste mit Mappe speichern
04.03.2004 20:31:16
Volker
Guten Abend,
habe mir neue Symbole in meine Symbolleiste hinzugefügt um Makros per click auf dieses Symbol ausführen zu lassen.
Nun würd ich aber gern wissen wie ich diese Symbolleiste mit meiner Mappe verknüpfen kann und abspeichern kann. d.h. wenn ich die Mappe "index.xls" öffne dann sollen in meiner Symbolleiste auch meine selbst erstellten Symbole erscheinen. Öffne ich allerdings eine andere Mappe oder eine neue Mappe am Anfang so sollen meine selbst erstellten Symbole noch nicht in der Symbolleiste erscheinen.
kann mir jemand sagen wie ich das machen kann?
herzlichen dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symolleiste mit Mappe speichern
04.03.2004 21:01:24
xXx
Hallo,
da bleibt dir wohl nicht anderes, als die Symbolleiste per VBA beim Start der Mappe zu erstellen und beim Schließen wieder zu löschen. Ein Beispiel findest du hier:
http://www.excelerator.de/download/Menü.xls
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S.Das Forum lebt auch von den Rückmeldungen an die Antworter.
danke Udo da muss ich wohl mal schaun o.T.
04.03.2004 21:18:09
Volker
AW: Symolleiste mit Mappe speichern
04.03.2004 21:30:19
Karl-Otto Reimann
Guten Abend Volker

Private Sub Workbook_Open()
' Einrichtung der Bildschirmanzeige:
' - Symbolleiste "Format" ausschalten
' - Symbolleiste "Standard" um einen
'   zusätzlichen Knopf ergänzen
' - Dem neuen Knopf eine Löschprozedur
'   zuordnen
Dim Knopf As Object
Toolbars("Format").Visible = False
Set Knopf = Toolbars("Standard").ToolbarButtons. _
Add(Button:=212, Before:=1)
Knopf.OnAction = "Alles_Löschen"
End Sub

Sub Alles_Löschen()

' Der gesamte benutzte Bereich des aktiven
' Tabellenblatts wird gelöscht

On Error Resume Next
' Durch die "On Error"-Anweisung wird
' erreicht, daß es zu keiner Laufzeit-
' fehlermeldung kommt, wenn die Prozedur
' ausgeführt wird, während ein Modulblatt
' aktiv ist
ActiveSheet.UsedRange.Delete
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Bildschirmveränderungen wieder zurücksetzen
Toolbars("Standard").Reset
Toolbars("Format").Visible = True
End Sub

Viel Spaß damit
KO
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige