Thema Datum  Von Nutzer Rating
Antwort
Rot Unverankerte Symbolleiste
 28.08.2013 08:46:21 LucaIpp
NotSolved
30.08.2013 14:06:28 Gast69978
NotSolved

Ansicht des Beitrags:
Von:
LucaIpp		 Datum:
28.08.2013 08:46:21		 Views:
1487		 Rating:
     
Antwort:
  Ja
Thema:
Unverankerte Symbolleiste

Hallo allerseits

Ich habe ein VBA-Makro für Excel vor mir. In Excel 2003 wurde das Menü dafür direkt als unverankerte Symbolleiste dargestellt. In Excel 2010 wir das Menü vom Makro aber standardmässig unter dem Layer "Add-Ins" geladen. Wie kann ich in Excel 2010 eine unverankerte Symbolleiste für ein VBA-Makro erstellen?

So als anmerkung: Ich kenne das Makro nicht, habe es nämlich nicht geschrieben. Ausserdem kenne ich mich sehr schlecht mit Visual Basic aus.

Hier noch der Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Sub MenuErstellen()
 
Dim Menu As CommandBar
Dim Schlüssel, Sortieren, Suchen As CommandBarControl
Dim Schlüssel1, Schlüssel2, Schlüssel3 As CommandBarControl 'Einträge unter Schlüssel
Dim Sortieren1, Sortieren2 As CommandBarControl 'Einträge unter Sortieren
Dim Suchen1 As CommandBarControl 'Einträge unter Suchen
Dim MenuName
 
MenuName = "Schlüsselverwaltung"
On Error GoTo einblenden
 
Set Menu = Application.CommandBars.Add(Name:=MenuName)
 
Application.CommandBars("Schlüsselverwaltung").Visible = True
 
'Einträge unter Schlüssel
Set Schlüssel = Menu.Controls.Add(Type:=msoControlPopup)
    Schlüssel.Caption = "Schlüssel"
 
Set Schlüssel1 = Schlüssel.Controls.Add(Type:=msoControlButton)
    Schlüssel1.Caption = "Abgabe"
    Schlüssel1.OnAction = "SAbgabeZeigen"
     
Set Schlüssel2 = Schlüssel.Controls.Add(Type:=msoControlButton)
    Schlüssel2.Caption = "Rückname"
    Schlüssel2.OnAction = "SRückgabeZeigen"
     
Set Schlüssel3 = Schlüssel.Controls.Add(Type:=msoControlButton)
    Schlüssel3.Caption = "vorhandene Schlüssel"
    Schlüssel3.OnAction = "zuVorhSchlüssel"
 
 
'Einträge unter Sortieren
Set Sortieren = Menu.Controls.Add(Type:=msoControlPopup)
    Sortieren.Caption = "sortieren"
 
Set Sortieren1 = Sortieren.Controls.Add(Type:=msoControlButton)
    Sortieren1.Caption = "nach Schlüssel"
    Sortieren1.OnAction = "SortSchlüssel"
     
Set Sortieren2 = Sortieren.Controls.Add(Type:=msoControlButton)
    Sortieren2.Caption = "nach Namen"
    Sortieren2.OnAction = "SortNamen"
     
Set Suchen = Menu.Controls.Add(Type:=msoControlPopup)
    Suchen.Caption = "Suchen"
         
Set Suchen1 = Suchen.Controls.Add(Type:=msoControlButton)
    Suchen1.Caption = "Namen"
    Suchen1.OnAction = "frmNamenSucheEinblenden"
     
einblenden:
Application.CommandBars("Schlüsselverwaltung").Visible = True
End Sub
 
Sub SAbgabeZeigen()
frmSAbgabe.Show
End Sub
 
Sub SRückgabeZeigen()
frmSRückgabe.Show
End Sub
 
Sub SortNamen()
ActiveSheet.Unprotect
Range("A6").Select
Selection.sort Key1:=Range("A6"), Order1:=xlAscending, Key2:=Range("B6") _
        , Order2:=xlAscending, Key3:=Range("C6"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
Sub SortSchlüssel()
ActiveSheet.Unprotect
Range("A6").Select
If ActiveSheet.Name = "Schlüssel" Then
    Selection.sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("H6") _
        , Order2:=xlAscending, Key3:=Range("A6"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A6").Select
    Exit Sub
End If
 
If ActiveSheet.Name = "Schlüsselrückgabe" Then
    Selection.sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("I6") _
        , Order2:=xlAscending, Key3:=Range("A6"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A6").Select
    Else
    MsgBox "In dieser Tabelle ist diese Funktion nicht verfügbar.", , _
            "Funktion nicht verfügbar"
End If
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
Sub zuVorhSchlüssel()
Sheets("Schlüssel").Select
SortNamen
Range("C6").Select
Selection.End(xlDown).Select
End Sub
 
Sub frmNamenSucheEinblenden()
frmNamenSuchen.Show
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Unverankerte Symbolleiste
 28.08.2013 08:46:21 LucaIpp
NotSolved
30.08.2013 14:06:28 Gast69978
NotSolved