Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Butten für Makro in Excel Menuleiste einbauen

Butten für Makro in Excel Menuleiste einbauen
16.12.2004 09:42:48
manuel
Hallo,
ich möchte gern den Start von einem Makro in der ExcelMenuleiste aufrufen. Noch besser wäre es, wenn ich eine eigene Symboleiste erstellen kann.
Ich wäre euch sehr dankbar, wenn ihr mir helfen könnt!
Viele Grüße
Manuel

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Butten für Makro in Excel Menuleiste einbauen
c0bRa
hallo manuel,
ich nehm mal an, du hast die makros bereits...
dann:
rechtsklick auf freie fläche der menüleiste...
anpassen
und jetzt gibts zwei wege...
der erste wäre im register symbolleisten "neu", wenn du eine symbolleiste willst,
oder der zweite beim register befehle "neues menu" ganz unten...
dann kannst du beim register befehle den punkt makros auswählen und deinen makros einen button geben und beliebig hin und herziehen und das bild des makros bearbeiten ;)
c0bRa
AW: Butten für Makro in Excel Menuleiste einbauen
16.12.2004 10:05:20
Manuel
Hallo,
Mhm, das ist nur die halbe Miete - aber trotzdem Danke erstmal.
Ich möchte das gern so machen: Sobald ich mein "Start"Marko aufrufe, soll nachgeschaut werden, ob es die Symboleiste schon gibt. Wenn nicht soll eine angelegt werden und ein Makro hinter der Schaltfläche hinterlegt werden. Mit dem VBARecorder kann man sich eine Symboleiste anlegen, aber das hinterlegen der Makros funktioniert leider nicht.
Vielen Dank für deine Antwort!
Manuel
Anzeige
AW: Butten für Makro in Excel Menuleiste einbauen
c0bRa
ok...
da muss sich dann ein anderer mit befassen, so gut bin ich in VBA doch nich ;)
c0bRa
AW: Antwort
16.12.2004 12:24:24
manuel

Sub start()
Set CB = Application.CommandBars("Titel")
If Err.Number <> 0 Then
Application.CommandBars.Add(name:="Titel").Visible = True
Set newItem = CommandBars("Titel").Controls.Add(Type:=msoControlButton)
With newItem
.BeginGroup = True
.Caption = "Titel"
.FaceId = 0
.OnAction = "'Datei.xls'!start"
End With
MsgBox "There has been created a CommandBar!", vbInformation
ElseIf CB.Visible = False Then
CB.Visible = True
MsgBox "There is an existing CommandBar!", vbInformation
End If
End Sub

Anzeige

153 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige