Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro dem Schaltflächenbild per VBA zuweisen

Forumthread: Makro dem Schaltflächenbild per VBA zuweisen

Makro dem Schaltflächenbild per VBA zuweisen
Karsten
Hallo,
läßt sich per VBA-Code in der Menüleiste einem selbst erstelltem Schaltflächenbild einen Makro zuweisen?
Ich weiß, dass es sich wie Quatsch anhört sowas zu machen, aber durch Abspeichern in eine andere Mappe und wieder öffnen usw. (es ist eigentlich noch komplizierter) werden die Makrozuweisungen nicht aktualisiert und er findet den Makro in der neuen Mappe deshalb nicht. Hab auch schon probiert die Excel10.xlb zu kopieren und danach wieder zu ersetzen, geht aber auch nicht.
Danke für eure Hilfe.
Gruß
Karsten
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 10:31:23
Rudi
Hallo,
der normale Weg ist, beim Start der Mappe per VBA eine eigene Symbolleiste mit entsprechenden Schaltflächen zu erstellen und beim Schleßen wieder zu löschen.
Gruß
Rudi
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 11:03:05
Karsten
Hallo Rudi,
da muss ich noch mal fragen: 

entsprechenden Schaltflächen zu erstellen

in Anpassen - Symbolleisten usw. völlig neu erstellen? Oder die eingerichtete Symbolleiste mit Schaltflächen per VBA aktivieren?
Schließen wieder zu löschen
wirklich löschen oder nur verstecken?
Gruß
Karsten
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 11:33:58
Rudi
Hallo,
1. völlig neu erstellen
2. löschen
Mal als Beispiel
In DieseArbeitsmappe: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CreateMenu False
End Sub
Private Sub Workbook_Open()
CreateMenu True
End Sub
In ein Modul: 
Sub CreateMenu(blnCreate As Boolean)
Dim oCBar As CommandBar
Const strCBName As String = "MeineMakros"
On Error Resume Next
Application.CommandBars(strCBName).Delete
On Error GoTo 0
If blnCreate Then
Set oCBar = Application.CommandBars.Add(strCBName, msoBarTop, False, True)
CreateButton oCBar, "Makro1"
CreateButton oCBar, "Makro2", "Button2", True
'und so weiter
oCBar.Visible = True
End If
End Sub
Sub CreateButton(oCBar As CommandBar, strOnAction As String, Optional strCaption, Optional  _
blnGroup As Boolean = False)
Dim oBtn As CommandBarButton
If IsMissing(strCaption) Then strCaption = strOnAction
Set oBtn = oCBar.Controls.Add(msoControlButton, 1, , , True)
With oBtn
.Caption = strCaption
.OnAction = strOnAction
.Style = msoButtonCaption
.BeginGroup = blnGroup
End With
End Sub

Gruß
Rudi
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 12:23:42
Karsten
Hallo Rudi,
hab 'ne Weile gebraucht, aber es funktioniert wirklich gut für meine Sache, danke.
Habe dennoch 2 Fragen:
1.
Wo steht im Code, wo die Symbolleiste platziert wird?
Ich nehme an, irgendwo da:
Set oCBar = Application.CommandBars.Add(strCBName, msoBarTop, False, True)
Was muß wo stehn, dass Excel sich eine andere Position "merkt"?
2.
Und, wie funktioniert das mit selbstkreierten Schaltflächen?
Gruß
Karsten
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 12:43:37
Rudi
Hallo,
ist es so schwer, in die Hilfe zu schauen?
1. msoBarTop Alternativ left, right, bottom, floating
2. Bilder auf einem (versteckten) Blatt ablegen, kopieren und per PasteFace der SchFl zuordnen.
Gruß
Rudi
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 12:59:01
Karsten
Hallo Rudi,
sorry, dass ich nerve.
mit der Platzierung meine ich noch etwas anderes. z.B. in: "Worksheet Menu Bar" ganz rechts.
Die Hilfe ist nicht immer die Hilfe, besonders, wenn man nicht weiß, nach was man suchen soll.
Gruß
Karsten
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 13:18:55
Rudi
Hallo,
da kannst du aber keine Commandbar einbauen, sondern nur Controls. 
Sub ttx()
Dim oPop As CommandBarPopup, oBtn As CommandBarControl
Const strPop As String = "MeineMakros"
On Error Resume Next
Application.CommandBars("worksheet Menu Bar").Controls(strPop).Delete
On Error GoTo 0
Set oPop = Application.CommandBars("worksheet Menu Bar").Controls.Add(msoControlPopup)
With oPop
.Caption = strPop
.BeginGroup = True
End With
Set oBtn = oPop.Controls.Add(msoControlButton)
With oBtn
.Style = msoButtonIconAndCaption
.Caption = "Button1"
.OnAction = "Test_001"
End With
Set oBtn = oPop.Controls.Add(msoControlButton)
With oBtn
.Style = msoButtonIconAndCaption
.Caption = "Button2"
.OnAction = "Test_002"
End With
End Sub

Gruß
Rudi
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 13:53:21
Karsten
Hallo Rudi,
mit:
Private Sub Workbook_Open()
MeineMakros
End Sub
bekomme ich meine Schaltfläche nun oben hin.
Wie bekomme ich sie wieder weg für die nächste Mappe.
Mit so eine Art Makro geht es zwar im Moment, nur ich glaube das geht noch anders.
Es muss ja nicht immer das 15te Kästchen bleiben.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls(15).Delete
End Sub

Gruß
Karsten
Anzeige
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 14:46:14
Rudi
Hallo,
dann gib doch den Namen an.
Application.CommandBars("Worksheet Menu Bar").Controls("MeineMakros").Delete
Gruß
Rudi
AW: Makro dem Schaltflächenbild per VBA zuweisen
25.11.2010 21:07:11
Karsten
Hallo Rudi,
aha. Danke.
Damit komme ich noch nicht klar:
2. Bilder auf einem (versteckten) Blatt ablegen, kopieren und per PasteFace der SchFl zuordnen.
Mit:
ActiveSheet.Shapes("Picture 2").Select
Selection.Copy
kopiere ich.
Wie geht es mit PasteFace weiter?
Gruß
Karsten
Anzeige
steht in der Hilfe owT
01.12.2010 12:58:04
Rudi
;

Forumthreads zu verwandten Themen

Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Anzeige
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Anzeige
OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Makro funktioniert nicht
Diegel,

Hallo,
ich bin schon fast am verzweifeln.
Ein Makro funktioniert in der einen Datei und in der anderen Datei nicht. Obwohl ich genau dasselbe hinein kopiert habe.
Woran kann es liegen?
Viele Grüße von der Nordsee
Peter
12.03.2009 17:20:12
Thread-ID: 1059586
3 Beiträge
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Makro funktioniert nicht
mike49

Hallo,
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E8:E38")) Then Cancel = True If Target = "" Then Target = "9:15" Else Target = "...
29.03.2009 11:08:37
Thread-ID: 1065018
5 Beiträge
Makro aus Excel 2003 funktioniert nicht in Ex 2007
Lene

Hallo zusammen,
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider dive...
07.04.2009 19:27:56
Thread-ID: 1067511
9 Beiträge
Anzeige
Makro einer Schaltfläche zuweisen
Gunter

Hallo Zusammen,
ich habe in einem Arbeitsblatt ein Makro einer Schaltfläche zugewiesen. Wenn ich jetzt ein neues Arbeitsblatt aufmache ist die Schaltfläche auch vorhanden. Soweit so gut. Wenn ich nun auf diese Schaltfläche klicke öffnet sich die Datei in der ich das Makro erstellt habe. Mus...
02.10.2009 19:04:57
Thread-ID: 1106903
10 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige