ComboBox in benutzerdef. Menüleiste
11.07.2003 13:16:05
MikeS
beim Öffnen meiner Arbeitsmappe wird automatisch eine neue Symbolleiste erstellt,
die beim Schließen der Mappe wieder gelöscht wird.
Code:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars(" Navigationshilfe " & _
" © by Mike Schmaler 2003").Delete
End Sub
Private Sub Workbook_Open()
Dim Menue
Dim Button1, Button2, Button3, Button4, Button5, Button6, Button7
Set Menue = Application.CommandBars.Add(Name:=" Navigationshilfe " & _
" © by Mike Schmaler 2003", temporary:=True)
With Menue
.Visible = True
.Top = 113
.Left = 2.5
End With
Set Button1 = Menue.Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
With Button1
.Style = msoButtonIconAndCaption
.Caption = "erste Zeile"
.FaceId = 594
.OnAction = "ErsteZelle"
End With
Set Button2 = Menue.Controls.Add(Type:=msoControlButton, before:=2, temporary:=True)
With Button2
.Style = msoButtonIconAndCaption
.Caption = "letzte Zeile"
.FaceId = 597
.OnAction = "GoToEnde"
End With
Set Button3 = Menue.Controls.Add(Type:=msoControlButton, before:=3, temporary:=True)
With Button3
.Style = msoButtonIconAndCaption
.Caption = "erste Spalte"
.FaceId = 154
.OnAction = "GeheNachLinks"
.BeginGroup = True
End With
Set Button4 = Menue.Controls.Add(Type:=msoControlButton, before:=4, temporary:=True)
With Button4
.Style = msoButtonIconAndCaption
.Caption = "letzte Spalte"
.FaceId = 157
.OnAction = "GeheNachRechts"
End With
Set Button5 = Menue.Controls.Add(Type:=msoControlButton, before:=5, temporary:=True)
With Button5
.Style = msoButtonIconAndCaption
.Caption = "nächste TNR."
.FaceId = 129
.OnAction = "NächsteTeilenummer"
.BeginGroup = True
End With
Set Button6 = Menue.Controls.Add(Type:=msoControlButton, before:=6, temporary:=True)
With Button6
.Style = msoButtonIconAndCaption
.Caption = "vorherige TNR."
.FaceId = 128
.OnAction = "VorigeTeilenummer"
End With
Set Button7 = Menue.Controls.Add(Type:=msoControlButton, before:=7, temporary:=True)
With Button7
.Style = msoButtonIconAndCaption
.Caption = "alle Filter deaktivieren"
.FaceId = 605
.OnAction = "AlleFilterEntfernen"
.BeginGroup = True
End With
End Sub
Code eingefügt mit Syntaxhighlighter 2.1
Nun möchte ich eine ComboBox mit einbauen (an 1.Stelle der Leiste), die alle Werte im
Bereich (A7:A & [A65536].End(xlUp).Row) einließt.
Da aber Werte doppelt vorkommen können, sollen die Werte nur einmal (sortiert) in der ComboBox auftauchen,
genau wie das bei der AutoFilter-Combobox passiert.
Wird nun ein Eintrag in der ComboBox angeklickt, soll dieser in Spalte A selektiert werden.
Wer kann mir dabei helfen???
Ich stehe total aufm Schlauch!!!
Vielen, vielen Dank für Eure Mühe.
Ciao Mike
P.S. Die Makros die ausgeführt werden, wenn man auf die bestehenden Buttons drückt,
habe ich aus Platzgründen weggelassen.